BBS in a Box 5

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Apple / Apple II TNs(Text).cpt / Apple II TNs(Text) / PDOS / TN.PDOS.017 < prev next >
MacBinary | 1989-11-15 | 31.0 KB | [TEXT/pdos]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: TN.PDOS.017
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Scream Tracker Instruments Library `(other/screamTrackerInstrumentsLibrary)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Nov 15 12:35:53 1989, modified Wed Nov 15 12:35:53 1989, creator Apple ProDOS file system, type ASCII, 31108 bytes "TN.PDOS.017" , at 0x7a04 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[pdos]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 54 4e 2e 50 44 4f | 53 2e 30 31 37 00 00 00 |..TN.PDO|S.017...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 70 64 6f | 73 01 00 00 00 00 00 00 |.TEXTpdo|s.......|
|00000050| 00 00 00 00 00 79 84 00 | 00 01 7e a1 87 4e f9 a1 |.....y..|..~..N..|
|00000060| 87 4e f9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.N......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dc a5 00 00 |........|........|
|00000080| 41 70 70 6c 65 20 49 49 | 0d 54 65 63 68 6e 69 63 |Apple II|.Technic|
|00000090| 61 6c 20 4e 6f 74 65 73 | 0d 5f 5f 5f 5f 5f 5f 5f |al Notes|._______|
|000000a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000d0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000000e0| 5f 5f 5f 5f 5f 5f 0d 20 | 20 20 20 20 20 20 20 20 |______. |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 44 65 76 65 6c 6f 70 |        | Develop|
|00000120| 65 72 20 54 65 63 68 6e | 69 63 61 6c 20 53 75 70 |er Techn|ical Sup|
|00000130| 70 6f 72 74 0d 0d 0d 50 | 72 6f 44 4f 53 20 38 0d |port...P|roDOS 8.|
|00000140| 23 31 37 3a 20 20 20 20 | 52 65 63 75 72 73 69 76 |#17:    |Recursiv|
|00000150| 65 20 50 72 6f 44 4f 53 | 20 43 61 74 61 6c 6f 67 |e ProDOS| Catalog|
|00000160| 20 52 6f 75 74 69 6e 65 | 0d 0d 52 65 76 69 73 65 | Routine|..Revise|
|00000170| 64 20 62 79 3a 20 20 20 | 20 4b 65 69 74 68 20 52 |d by:   | Keith R|
|00000180| 6f 6c 6c 69 6e 20 26 20 | 4d 61 74 74 20 44 65 61 |ollin & |Matt Dea|
|00000190| 74 68 65 72 61 67 65 20 | 20 20 20 20 20 20 20 20 |therage |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 4e 6f 76 65 6d 62 |        |  Novemb|
|000001b0| 65 72 20 31 39 38 38 0d | 57 72 69 74 74 65 6e 20 |er 1988.|Written |
|000001c0| 62 79 3a 20 20 20 20 47 | 72 65 67 20 53 65 69 74 |by:    G|reg Seit|
|000001d0| 7a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |z       |        |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001f0| 20 20 20 20 20 20 20 20 | 44 65 63 65 6d 62 65 72 |        |December|
|00000200| 20 31 39 38 33 0d 0d 54 | 68 69 73 20 54 65 63 68 | 1983..T|his Tech|
|00000210| 6e 69 63 61 6c 20 4e 6f | 74 65 20 70 72 65 73 65 |nical No|te prese|
|00000220| 6e 74 73 20 61 6e 20 61 | 73 73 65 6d 62 6c 79 20 |nts an a|ssembly |
|00000230| 6c 61 6e 67 75 61 67 65 | 20 65 78 61 6d 70 6c 65 |language| example|
|00000240| 20 6f 66 20 61 20 72 65 | 63 75 72 73 69 76 65 20 | of a re|cursive |
|00000250| 0d 64 69 72 65 63 74 6f | 72 79 20 72 65 61 64 69 |.directo|ry readi|
|00000260| 6e 67 20 72 6f 75 74 69 | 6e 65 20 77 68 69 63 68 |ng routi|ne which|
|00000270| 20 69 73 20 41 70 70 6c | 65 53 68 61 72 65 20 63 | is Appl|eShare c|
|00000280| 6f 6d 70 61 74 69 62 6c | 65 2e 0d 5f 5f 5f 5f 5f |ompatibl|e.._____|
|00000290| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002a0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002b0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002c0| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|000002d0| 5f 5f 5f 5f 5f 5f 5f 5f | 0d 0d 54 68 69 73 20 4e |________|..This N|
|000002e0| 6f 74 65 20 70 72 65 73 | 65 6e 74 73 20 61 20 72 |ote pres|ents a r|
|000002f0| 6f 75 74 69 6e 65 20 69 | 6e 20 61 73 73 65 6d 62 |outine i|n assemb|
|00000300| 6c 79 20 6c 61 6e 67 75 | 61 67 65 20 66 6f 72 20 |ly langu|age for |
|00000310| 72 65 63 75 72 73 69 76 | 65 6c 79 20 63 61 74 61 |recursiv|ely cata|
|00000320| 6c 6f 67 69 6e 67 20 61 | 20 0d 50 72 6f 44 4f 53 |loging a| .ProDOS|
|00000330| 20 64 69 73 6b 2c 20 61 | 6e 64 20 69 66 20 79 6f | disk, a|nd if yo|
|00000340| 75 20 61 70 70 6c 79 20 | 74 68 69 73 20 74 65 63 |u apply |this tec|
|00000350| 68 6e 69 71 75 65 20 74 | 6f 20 74 68 65 20 76 6f |hnique t|o the vo|
|00000360| 6c 75 6d 65 20 64 69 72 | 65 63 74 6f 72 79 20 6f |lume dir|ectory o|
|00000370| 66 20 61 20 0d 64 69 73 | 6b 2c 20 69 74 20 77 69 |f a .dis|k, it wi|
|00000380| 6c 6c 20 64 69 73 70 6c | 61 79 20 74 68 65 20 6e |ll displ|ay the n|
|00000390| 61 6d 65 20 6f 66 20 65 | 76 65 72 79 20 66 69 6c |ame of e|very fil|
|000003a0| 65 20 73 74 6f 72 65 64 | 20 6f 6e 20 74 68 65 20 |e stored| on the |
|000003b0| 64 69 73 6b 2e 20 20 54 | 68 65 20 72 6f 75 74 69 |disk.  T|he routi|
|000003c0| 6e 65 20 0d 64 69 73 70 | 6c 61 79 73 20 74 68 65 |ne .disp|lays the|
|000003d0| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 61 20 67 | content|s of a g|
|000003e0| 69 76 65 6e 20 64 69 72 | 65 63 74 6f 72 79 2c 20 |iven dir|ectory, |
|000003f0| 74 68 65 20 76 6f 6c 75 | 6d 65 20 64 69 72 65 63 |the volu|me direc|
|00000400| 74 6f 72 79 20 69 6e 20 | 74 68 69 73 20 63 61 73 |tory in |this cas|
|00000410| 65 2c 20 0d 74 68 65 6e | 20 64 69 73 70 6c 61 79 |e, .then| display|
|00000420| 73 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |s the co|ntents o|
|00000430| 66 20 65 76 65 72 79 20 | 64 69 72 65 63 74 6f 72 |f every |director|
|00000440| 79 20 63 6f 6e 74 61 69 | 6e 65 64 20 77 69 74 68 |y contai|ned with|
|00000450| 69 6e 20 74 68 65 20 69 | 6e 69 74 69 61 6c 20 0d |in the i|nitial .|
|00000460| 64 69 72 65 63 74 6f 72 | 79 2e 0d 0d 50 72 65 76 |director|y...Prev|
|00000470| 69 6f 75 73 20 76 65 72 | 73 69 6f 6e 73 20 6f 66 |ious ver|sions of|
|00000480| 20 74 68 65 20 4e 6f 74 | 65 20 72 65 63 6f 6d 6d | the Not|e recomm|
|00000490| 65 6e 64 65 64 20 72 65 | 61 64 69 6e 67 20 74 68 |ended re|ading th|
|000004a0| 65 20 64 69 72 65 63 74 | 6f 72 79 20 77 69 74 68 |e direct|ory with|
|000004b0| 20 0d 52 45 41 44 5f 42 | 4c 4f 43 4b 20 50 72 6f | .READ_B|LOCK Pro|
|000004c0| 44 4f 53 20 63 61 6c 6c | 73 2e 20 20 54 68 69 73 |DOS call|s.  This|
|000004d0| 20 6d 65 74 68 6f 64 20 | 77 69 6c 6c 20 73 74 69 | method |will sti|
|000004e0| 6c 6c 20 77 6f 72 6b 20 | 69 6e 20 6d 6f 73 74 20 |ll work |in most |
|000004f0| 63 61 73 65 73 2c 20 62 | 75 74 20 41 70 70 6c 65 |cases, b|ut Apple|
|00000500| 20 0d 43 6f 6d 70 75 74 | 65 72 20 6e 6f 20 6c 6f | .Comput|er no lo|
|00000510| 6e 67 65 72 20 65 6e 64 | 6f 72 73 65 73 20 69 74 |nger end|orses it|
|00000520| 20 73 69 6e 63 65 20 62 | 6c 6f 63 6b 2d 6c 65 76 | since b|lock-lev|
|00000530| 65 6c 20 61 63 63 65 73 | 73 20 69 73 20 6e 6f 74 |el acces|s is not|
|00000540| 20 61 6c 6c 6f 77 65 64 | 20 74 6f 20 0d 41 70 70 | allowed| to .App|
|00000550| 6c 65 53 68 61 72 65 20 | 66 69 6c 65 20 73 65 72 |leShare |file ser|
|00000560| 76 65 72 73 20 75 6e 64 | 65 72 20 50 72 6f 44 4f |vers und|er ProDO|
|00000570| 53 2e 20 20 28 41 20 66 | 69 6c 65 20 73 65 72 76 |S.  (A f|ile serv|
|00000580| 65 72 20 63 61 6e 6e 6f | 74 20 68 61 6e 64 6c 65 |er canno|t handle|
|00000590| 20 6f 6e 65 20 0d 6d 61 | 63 68 69 6e 65 20 63 6f | one .ma|chine co|
|000005a0| 6e 6e 65 63 74 65 64 20 | 74 6f 20 69 74 20 63 68 |nnected |to it ch|
|000005b0| 61 6e 67 69 6e 67 20 66 | 69 6c 65 73 20 61 6e 64 |anging f|iles and|
|000005c0| 20 64 69 72 65 63 74 6f | 72 69 65 73 20 6f 6e 20 | directo|ries on |
|000005d0| 61 20 62 6c 6f 63 6b 20 | 6c 65 76 65 6c 20 77 68 |a block |level wh|
|000005e0| 69 6c 65 20 0d 69 74 20 | 69 73 20 74 72 79 69 6e |ile .it |is tryin|
|000005f0| 67 20 74 6f 20 61 72 62 | 69 74 72 61 74 65 20 75 |g to arb|itrate u|
|00000600| 73 61 67 65 20 62 65 74 | 77 65 65 6e 20 6f 74 68 |sage bet|ween oth|
|00000610| 65 72 20 6d 61 63 68 69 | 6e 65 73 20 61 74 20 74 |er machi|nes at t|
|00000620| 68 65 20 66 69 6c 65 20 | 6c 65 76 65 6c 2e 20 20 |he file |level.  |
|00000630| 41 20 0d 62 6c 6f 63 6b | 2d 6c 65 76 65 6c 20 63 |A .block|-level c|
|00000640| 68 61 6e 67 65 20 62 65 | 68 69 6e 64 20 74 68 65 |hange be|hind the|
|00000650| 20 73 65 72 76 65 72 27 | 73 20 62 61 63 6b 20 63 | server'|s back c|
|00000660| 6f 75 6c 64 20 65 61 73 | 69 6c 79 20 6d 65 73 73 |ould eas|ily mess|
|00000670| 20 74 68 69 6e 67 73 20 | 75 70 20 0d 63 61 74 61 | things |up .cata|
|00000680| 73 74 72 6f 70 68 69 63 | 61 6c 6c 79 2e 29 0d 0d |strophic|ally.)..|
|00000690| 49 66 20 79 6f 75 20 61 | 72 65 20 77 69 6c 6c 69 |If you a|re willi|
|000006a0| 6e 67 20 74 6f 20 75 73 | 65 20 61 20 64 69 66 66 |ng to us|e a diff|
|000006b0| 65 72 65 6e 74 20 61 70 | 70 72 6f 61 63 68 2c 20 |erent ap|proach, |
|000006c0| 68 6f 77 65 76 65 72 2c | 20 79 6f 75 20 63 61 6e |however,| you can|
|000006d0| 20 72 65 61 64 20 74 68 | 65 20 0d 64 69 72 65 63 | read th|e .direc|
|000006e0| 74 6f 72 79 20 6a 75 73 | 74 20 61 73 20 65 61 73 |tory jus|t as eas|
|000006f0| 69 6c 79 20 75 73 69 6e | 67 20 52 45 41 44 20 63 |ily usin|g READ c|
|00000700| 61 6c 6c 73 2e 20 20 49 | 6e 73 74 65 61 64 20 6f |alls.  I|nstead o|
|00000710| 66 20 75 73 69 6e 67 20 | 64 69 72 65 63 74 6f 72 |f using |director|
|00000720| 79 20 0d 70 6f 69 6e 74 | 65 72 73 20 74 6f 20 64 |y .point|ers to d|
|00000730| 65 63 69 64 65 20 77 68 | 69 63 68 20 62 6c 6f 63 |ecide wh|ich bloc|
|00000740| 6b 20 74 6f 20 72 65 61 | 64 20 6e 65 78 74 2c 20 |k to rea|d next, |
|00000750| 77 65 20 73 69 6d 70 6c | 79 20 72 65 61 64 20 74 |we simpl|y read t|
|00000760| 68 65 20 64 69 72 65 63 | 74 6f 72 79 20 61 6e 64 |he direc|tory and|
|00000770| 20 0d 64 69 73 70 6c 61 | 79 20 66 69 6c 65 6e 61 | .displa|y filena|
|00000780| 6d 65 73 20 61 73 20 77 | 65 20 67 6f 2c 20 75 6e |mes as w|e go, un|
|00000790| 74 69 6c 20 77 65 20 72 | 65 61 63 68 20 61 20 73 |til we r|each a s|
|000007a0| 75 62 64 69 72 65 63 74 | 6f 72 79 20 66 69 6c 65 |ubdirect|ory file|
|000007b0| 2e 20 20 57 68 65 6e 20 | 77 65 20 72 65 61 63 68 |.  When |we reach|
|000007c0| 20 0d 61 20 73 75 62 64 | 69 72 65 63 74 6f 72 79 | .a subd|irectory|
|000007d0| 2c 20 74 68 65 20 72 6f | 75 74 69 6e 65 20 73 61 |, the ro|utine sa|
|000007e0| 76 65 73 20 74 68 65 20 | 6e 65 63 65 73 73 61 72 |ves the |necessar|
|000007f0| 79 20 76 61 72 69 61 62 | 6c 65 73 2c 20 70 6c 75 |y variab|les, plu|
|00000800| 6e 67 65 73 20 64 6f 77 | 6e 20 6f 6e 65 20 0d 6c |nges dow|n one .l|
|00000810| 65 76 65 6c 20 6f 66 20 | 74 68 65 20 74 72 65 65 |evel of |the tree|
|00000820| 20 73 74 72 75 63 74 75 | 72 65 2c 20 61 6e 64 20 | structu|re, and |
|00000830| 63 61 74 61 6c 6f 67 73 | 20 74 68 65 20 73 75 62 |catalogs| the sub|
|00000840| 64 69 72 65 63 74 6f 72 | 79 2e 20 20 59 6f 75 20 |director|y.  You |
|00000850| 72 65 70 65 61 74 20 74 | 68 65 20 0d 70 72 6f 63 |repeat t|he .proc|
|00000860| 65 73 73 20 69 66 20 79 | 6f 75 20 66 69 6e 64 20 |ess if y|ou find |
|00000870| 61 20 73 75 62 64 69 72 | 65 63 74 6f 72 79 20 61 |a subdir|ectory a|
|00000880| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 65 |t the cu|rrent le|
|00000890| 76 65 6c 2e 20 20 57 68 | 65 6e 20 79 6f 75 20 72 |vel.  Wh|en you r|
|000008a0| 65 61 63 68 20 74 68 65 | 20 0d 45 4f 46 20 6f 66 |each the| .EOF of|
|000008b0| 20 61 6e 79 20 64 69 72 | 65 63 74 6f 72 79 2c 20 | any dir|ectory, |
|000008c0| 74 68 65 20 72 6f 75 74 | 69 6e 65 20 63 6c 6f 73 |the rout|ine clos|
|000008d0| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |es the c|urrent d|
|000008e0| 69 72 65 63 74 6f 72 79 | 20 61 6e 64 20 70 6f 70 |irectory| and pop|
|000008f0| 73 20 62 61 63 6b 20 0d | 75 70 20 6f 6e 65 20 6c |s back .|up one l|
|00000900| 65 76 65 6c 2c 20 61 6e | 64 20 77 68 65 6e 20 69 |evel, an|d when i|
|00000910| 74 20 72 65 61 63 68 65 | 73 20 74 68 65 20 45 4f |t reache|s the EO|
|00000920| 46 20 6f 66 20 74 68 65 | 20 69 6e 69 74 69 61 6c |F of the| initial|
|00000930| 20 64 69 72 65 63 74 6f | 72 79 2c 20 74 68 65 20 | directo|ry, the |
|00000940| 0d 72 6f 75 74 69 6e 65 | 20 69 73 20 66 69 6e 69 |.routine| is fini|
|00000950| 73 68 65 64 2e 0d 0d 54 | 68 65 20 63 6f 64 65 20 |shed...T|he code |
|00000960| 65 78 61 6d 70 6c 65 20 | 6f 6e 20 74 68 65 20 66 |example |on the f|
|00000970| 6f 6c 6c 6f 77 69 6e 67 | 20 70 61 67 65 73 20 69 |ollowing| pages i|
|00000980| 6e 63 6c 75 64 65 73 20 | 61 20 73 69 6d 70 6c 65 |ncludes |a simple|
|00000990| 20 74 65 73 74 20 6f 66 | 20 74 68 65 20 52 65 61 | test of| the Rea|
|000009a0| 64 44 69 72 20 0d 72 6f | 75 74 69 6e 65 2c 20 77 |dDir .ro|utine, w|
|000009b0| 68 69 63 68 20 69 73 20 | 74 68 65 20 61 63 74 75 |hich is |the actu|
|000009c0| 61 6c 20 72 65 63 75 72 | 73 69 76 65 20 63 61 74 |al recur|sive cat|
|000009d0| 61 6c 6f 67 20 72 6f 75 | 74 69 6e 65 2e 20 20 4e |alog rou|tine.  N|
|000009e0| 6f 74 65 20 74 68 61 74 | 20 74 68 65 20 73 69 6d |ote that| the sim|
|000009f0| 70 6c 65 20 0d 74 65 73 | 74 20 72 65 6c 69 65 73 |ple .tes|t relies|
|00000a00| 20 75 70 6f 6e 20 74 68 | 65 20 47 45 54 42 55 46 | upon th|e GETBUF|
|00000a10| 52 20 72 6f 75 74 69 6e | 65 20 69 6e 20 42 41 53 |R routin|e in BAS|
|00000a20| 49 43 2e 53 59 53 54 45 | 4d 20 74 6f 20 61 6c 6c |IC.SYSTE|M to all|
|00000a30| 6f 63 61 74 65 20 61 20 | 62 75 66 66 65 72 3b 20 |ocate a |buffer; |
|00000a40| 0d 74 68 65 72 65 66 6f | 72 65 2c 20 61 73 20 70 |.therefo|re, as p|
|00000a50| 72 65 73 65 6e 74 65 64 | 2c 20 74 68 65 20 72 6f |resented|, the ro|
|00000a60| 75 74 69 6e 65 20 72 65 | 71 75 69 72 65 73 20 74 |utine re|quires t|
|00000a70| 68 65 20 70 72 65 73 65 | 6e 63 65 20 6f 66 20 42 |he prese|nce of B|
|00000a80| 41 53 49 43 2e 53 59 53 | 54 45 4d 2e 20 20 0d 54 |ASIC.SYS|TEM.  .T|
|00000a90| 68 65 20 61 63 74 75 61 | 6c 20 52 65 61 64 44 69 |he actua|l ReadDi|
|00000aa0| 72 20 72 6f 75 74 69 6e | 65 20 72 65 71 75 69 72 |r routin|e requir|
|00000ab0| 65 73 20 6e 6f 74 68 69 | 6e 67 20 6f 75 74 73 69 |es nothi|ng outsi|
|00000ac0| 64 65 20 6f 66 20 74 68 | 65 20 50 72 6f 44 4f 53 |de of th|e ProDOS|
|00000ad0| 20 38 20 4d 4c 49 2e 0d | 0d 0d 0d 30 31 20 52 45 | 8 MLI..|...01 RE|
|00000ae0| 43 55 52 53 49 56 45 2e | 53 20 20 20 20 20 50 72 |CURSIVE.|S     Pr|
|00000af0| 6f 44 4f 53 20 43 61 74 | 61 6c 6f 67 20 52 6f 75 |oDOS Cat|alog Rou|
|00000b00| 74 69 6e 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |tine    |        |
|00000b10| 20 20 32 37 2d 41 55 47 | 2d 38 38 20 20 31 36 3a |  27-AUG|-88  16:|
|00000b20| 32 30 20 50 41 47 45 20 | 32 0d 20 0d 2d 2d 2d 2d |20 PAGE |2. .----|
|00000b30| 2d 20 4e 45 58 54 20 4f | 42 4a 45 43 54 20 46 49 |- NEXT O|BJECT FI|
|00000b40| 4c 45 20 4e 41 4d 45 20 | 49 53 20 43 41 54 41 4c |LE NAME |IS CATAL|
|00000b50| 4f 47 2e 4f 42 4a 20 20 | 20 20 20 20 20 20 20 20 |OG.OBJ  |        |
|00000b60| 20 20 20 20 20 20 20 20 | 20 0d 30 38 30 30 3a 20 |        | .0800: |
|00000b70| 20 20 20 20 20 20 20 30 | 38 30 30 20 20 20 20 32 |       0|800    2|
|00000b80| 20 20 20 20 20 20 20 20 | 20 20 20 6f 72 67 20 20 |        |   org  |
|00000b90| 20 24 38 30 30 0d 30 38 | 30 30 3a 20 20 20 20 20 | $800.08|00:     |
|00000ba0| 20 20 20 20 20 20 20 20 | 20 20 20 33 20 2a 2a 2a |        |   3 ***|
|00000bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000be0| 2a 2a 2a 2a 0d 30 38 30 | 30 3a 20 20 20 20 20 20 |****.080|0:      |
|00000bf0| 20 20 20 20 20 20 20 20 | 20 20 34 20 2a 0d 30 38 |        |  4 *.08|
|00000c00| 30 30 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00:     |        |
|00000c10| 20 20 20 35 20 2a 20 52 | 65 63 75 72 73 69 76 65 |   5 * R|ecursive|
|00000c20| 20 50 72 6f 44 4f 53 20 | 43 61 74 61 6c 6f 67 20 | ProDOS |Catalog |
|00000c30| 52 6f 75 74 69 6e 65 0d | 30 38 30 30 3a 20 20 20 |Routine.|0800:   |
|00000c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 36 20 2a |        |     6 *|
|00000c50| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0800:  |        |
|00000c60| 20 20 20 20 20 20 37 20 | 2a 20 62 79 3a 20 47 72 |      7 |* by: Gr|
|00000c70| 65 67 20 53 65 69 74 7a | 20 31 32 2f 38 33 0d 30 |eg Seitz| 12/83.0|
|00000c80| 38 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |800:    |        |
|00000c90| 20 20 20 20 38 20 2a 20 | 20 20 20 20 50 65 74 65 |    8 * |    Pete|
|00000ca0| 20 4d 63 44 6f 6e 61 6c | 64 20 31 2f 38 36 0d 30 | McDonal|d 1/86.0|
|00000cb0| 38 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |800:    |        |
|00000cc0| 20 20 20 20 39 20 2a 20 | 20 20 20 20 4b 65 69 74 |    9 * |    Keit|
|00000cd0| 68 20 52 6f 6c 6c 69 6e | 20 37 2f 38 38 0d 30 38 |h Rollin| 7/88.08|
|00000ce0| 30 30 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00:     |        |
|00000cf0| 20 20 31 30 20 2a 0d 30 | 38 30 30 3a 20 20 20 20 |  10 *.0|800:    |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 31 31 20 2a 20 |        |   11 * |
|00000d10| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 73 68 6f |This pro|gram sho|
|00000d20| 77 73 20 74 68 65 20 6c | 61 74 65 73 74 20 22 41 |ws the l|atest "A|
|00000d30| 70 70 6c 65 20 41 70 70 | 72 6f 76 65 64 22 0d 30 |pple App|roved".0|
|00000d40| 38 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |800:    |        |
|00000d50| 20 20 20 31 32 20 2a 20 | 6d 65 74 68 6f 64 20 66 |   12 * |method f|
|00000d60| 6f 72 20 72 65 61 64 69 | 6e 67 20 61 20 50 72 6f |or readi|ng a Pro|
|00000d70| 44 4f 53 20 64 69 72 65 | 63 74 6f 72 79 2e 20 57 |DOS dire|ctory. W|
|00000d80| 69 74 68 0d 30 38 30 30 | 3a 20 20 20 20 20 20 20 |ith.0800|:       |
|00000d90| 20 20 20 20 20 20 20 20 | 31 33 20 2a 20 74 68 65 |        |13 * the|
|00000da0| 20 61 64 76 65 6e 74 20 | 6f 66 20 41 70 70 6c 65 | advent |of Apple|
|00000db0| 54 61 6c 6b 20 66 6f 72 | 20 74 68 65 20 41 70 70 |Talk for| the App|
|00000dc0| 6c 65 20 49 49 2c 20 75 | 73 69 6e 67 0d 30 38 30 |le II, u|sing.080|
|00000dd0| 30 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0:      |        |
|00000de0| 20 31 34 20 2a 20 5f 52 | 45 41 44 42 4c 4f 43 4b | 14 * _R|EADBLOCK|
|00000df0| 20 74 6f 20 72 65 61 64 | 20 74 68 65 20 64 69 72 | to read| the dir|
|00000e00| 65 63 74 6f 72 79 20 77 | 69 6c 6c 20 6e 6f 20 6c |ectory w|ill no l|
|00000e10| 6f 6e 67 65 72 0d 30 38 | 30 30 3a 20 20 20 20 20 |onger.08|00:     |
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 31 35 20 2a 20 77 |        |  15 * w|
|00000e30| 6f 72 6b 2e 20 54 68 69 | 73 20 72 6f 75 74 69 6e |ork. Thi|s routin|
|00000e40| 65 20 68 61 73 20 62 65 | 65 6e 20 72 65 2d 77 72 |e has be|en re-wr|
|00000e50| 69 74 74 65 6e 20 74 6f | 20 72 65 61 64 0d 30 38 |itten to| read.08|
|00000e60| 30 30 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00:     |        |
|00000e70| 20 20 31 36 20 2a 20 64 | 69 72 65 63 74 6f 72 69 |  16 * d|irectori|
|00000e80| 65 73 20 62 79 20 6f 70 | 65 6e 69 6e 67 20 74 68 |es by op|ening th|
|00000e90| 65 6d 20 61 73 20 66 69 | 6c 65 73 2c 20 61 6e 64 |em as fi|les, and|
|00000ea0| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0800:  |        |
|00000eb0| 20 20 20 20 20 31 37 20 | 2a 20 70 65 72 66 6f 72 |     17 |* perfor|
|00000ec0| 6d 69 6e 67 20 73 69 6d | 70 6c 65 20 5f 52 45 41 |ming sim|ple _REA|
|00000ed0| 44 20 63 6f 6d 6d 61 6e | 64 73 2e 0d 30 38 30 30 |D comman|ds..0800|
|00000ee0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00000ef0| 31 38 20 2a 0d 30 38 30 | 30 3a 20 20 20 20 20 20 |18 *.080|0:      |
|00000f00| 20 20 20 20 20 20 20 20 | 20 31 39 20 2a 2a 2a 2a |        | 19 ****|
|00000f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f40| 2a 2a 2a 0d 30 38 30 30 | 3a 20 20 20 20 20 20 20 |***.0800|:       |
|00000f50| 20 20 20 20 20 20 20 20 | 32 30 20 2a 0d 30 38 30 |        |20 *.080|
|00000f60| 30 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0:      |        |
|00000f70| 20 32 31 20 2a 20 45 71 | 75 61 74 65 73 0d 30 38 | 21 * Eq|uates.08|
|00000f80| 30 30 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00:     |        |
|00000f90| 20 20 32 32 20 2a 0d 30 | 38 30 30 3a 20 20 20 20 |  22 *.0|800:    |
|00000fa0| 20 20 20 20 20 20 20 20 | 20 20 20 32 33 20 2a 20 |        |   23 * |
|00000fb0| 5a 65 72 6f 20 70 61 67 | 65 20 6c 6f 63 61 74 69 |Zero pag|e locati|
|00000fc0| 6f 6e 73 0d 30 38 30 30 | 3a 20 20 20 20 20 20 20 |ons.0800|:       |
|00000fd0| 20 20 20 20 20 20 20 20 | 32 34 20 2a 0d 30 38 30 |        |24 *.080|
|00000fe0| 30 3a 20 20 20 20 20 20 | 20 20 30 30 38 30 20 20 |0:      |  0080  |
|00000ff0| 20 32 35 20 64 69 72 4e | 61 6d 65 20 20 20 65 71 | 25 dirN|ame   eq|
|00001000| 75 20 20 20 24 38 30 20 | 20 20 20 20 20 20 20 20 |u   $80 |        |
|00001010| 20 20 3b 20 70 6f 69 6e | 74 65 72 20 74 6f 20 64 |  ; poin|ter to d|
|00001020| 69 72 65 63 74 6f 72 79 | 20 6e 61 6d 65 0d 30 38 |irectory| name.08|
|00001030| 30 30 3a 20 20 20 20 20 | 20 20 20 30 30 38 32 20 |00:     |   0082 |
|00001040| 20 20 32 36 20 65 6e 74 | 50 74 72 20 20 20 20 65 |  26 ent|Ptr    e|
|00001050| 71 75 20 20 20 24 38 32 | 20 20 20 20 20 20 20 20 |qu   $82|        |
|00001060| 20 20 20 3b 20 70 74 72 | 20 74 6f 20 63 75 72 72 |   ; ptr| to curr|
|00001070| 65 6e 74 20 65 6e 74 72 | 79 0d 30 38 30 30 3a 20 |ent entr|y.0800: |
|00001080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 32 37 |        |      27|
|00001090| 20 2a 0d 30 38 30 30 3a | 20 20 20 20 20 20 20 20 | *.0800:|        |
|000010a0| 20 20 20 20 20 20 20 32 | 38 20 2a 0d 30 38 30 30 |       2|8 *.0800|
|000010b0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|000010c0| 32 39 20 2a 20 50 72 6f | 44 4f 53 20 63 6f 6d 6d |29 * Pro|DOS comm|
|000010d0| 61 6e 64 20 6e 75 6d 62 | 65 72 73 0d 30 38 30 30 |and numb|ers.0800|
|000010e0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|000010f0| 33 30 20 2a 0d 30 38 30 | 30 3a 20 20 20 20 20 20 |30 *.080|0:      |
|00001100| 20 20 42 46 30 30 20 20 | 20 33 31 20 4d 4c 49 20 |  BF00  | 31 MLI |
|00001110| 20 20 20 20 20 20 65 71 | 75 20 20 20 24 42 46 30 |      eq|u   $BF0|
|00001120| 30 20 20 20 20 20 20 20 | 20 20 3b 20 4d 4c 49 20 |0       |  ; MLI |
|00001130| 65 6e 74 72 79 20 70 6f | 69 6e 74 0d 30 38 30 30 |entry po|int.0800|
|00001140| 3a 20 20 20 20 20 20 20 | 20 42 45 46 35 20 20 20 |:       | BEF5   |
|00001150| 33 32 20 47 65 74 42 75 | 66 72 20 20 20 65 71 75 |32 GetBu|fr   equ|
|00001160| 20 20 20 24 42 45 46 35 | 20 20 20 20 20 20 20 20 |   $BEF5|        |
|00001170| 20 3b 20 42 41 53 49 43 | 2e 53 59 53 54 45 4d 20 | ; BASIC|.SYSTEM |
|00001180| 67 65 74 20 62 75 66 66 | 65 72 20 72 6f 75 74 69 |get buff|er routi|
|00001190| 6e 65 0d 30 38 30 30 3a | 20 20 20 20 20 20 20 20 |ne.0800:|        |
|000011a0| 20 20 20 20 20 20 20 33 | 33 20 2a 0d 30 38 30 30 |       3|3 *.0800|
|000011b0| 3a 20 20 20 20 20 20 20 | 20 30 30 43 37 20 20 20 |:       | 00C7   |
|000011c0| 33 34 20 47 65 74 50 43 | 6d 64 20 20 20 65 71 75 |34 GetPC|md   equ|
|000011d0| 20 20 20 24 43 37 20 20 | 20 20 20 20 20 20 20 20 |   $C7  |        |
|000011e0| 20 3b 20 47 65 74 20 50 | 72 65 66 69 78 0d 30 38 | ; Get P|refix.08|
|000011f0| 30 30 3a 20 20 20 20 20 | 20 20 20 30 30 43 38 20 |00:     |   00C8 |
|00001200| 20 20 33 35 20 4f 70 65 | 6e 43 6d 64 20 20 20 65 |  35 Ope|nCmd   e|
|00001210| 71 75 20 20 20 24 43 38 | 20 20 20 20 20 20 20 20 |qu   $C8|        |
|00001220| 20 20 20 3b 20 4f 70 65 | 6e 20 61 20 66 69 6c 65 |   ; Ope|n a file|
|00001230| 20 63 6f 6d 6d 61 6e 64 | 0d 30 38 30 30 3a 20 20 | command|.0800:  |
|00001240| 20 20 20 20 20 20 30 30 | 43 41 20 20 20 33 36 20 |      00|CA   36 |
|00001250| 52 65 61 64 43 6d 64 20 | 20 20 65 71 75 20 20 20 |ReadCmd |  equ   |
|00001260| 24 43 41 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |$CA     |      ; |
|00001270| 52 65 61 64 20 61 20 66 | 69 6c 65 20 63 6f 6d 6d |Read a f|ile comm|
|00001280| 61 6e 64 0d 30 38 30 30 | 3a 20 20 20 20 20 20 20 |and.0800|:       |
|00001290| 20 30 30 43 43 20 20 20 | 33 37 20 43 6c 6f 73 65 | 00CC   |37 Close|
|000012a0| 43 6d 64 20 20 65 71 75 | 20 20 20 24 43 43 20 20 |Cmd  equ|   $CC  |
|000012b0| 20 20 20 20 20 20 20 20 | 20 3b 20 43 6c 6f 73 65 |        | ; Close|
|000012c0| 20 61 20 66 69 6c 65 20 | 63 6f 6d 6d 61 6e 64 0d | a file |command.|
|000012d0| 30 38 30 30 3a 20 20 20 | 20 20 20 20 20 30 30 43 |0800:   |     00C|
|000012e0| 45 20 20 20 33 38 20 53 | 65 74 4d 43 6d 64 20 20 |E   38 S|etMCmd  |
|000012f0| 20 65 71 75 20 20 20 24 | 43 45 20 20 20 20 20 20 | equ   $|CE      |
|00001300| 20 20 20 20 20 3b 20 53 | 65 74 20 46 69 6c 65 20 |     ; S|et File |
|00001310| 50 6f 73 69 74 69 6f 6e | 20 63 6f 6d 6d 61 6e 64 |Position| command|
|00001320| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0800:  |        |
|00001330| 20 20 20 20 20 33 39 20 | 2a 0d 30 38 30 30 3a 20 |     39 |*.0800: |
|00001340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 34 30 |        |      40|
|00001350| 20 2a 0d 30 38 30 30 3a | 20 20 20 20 20 20 20 20 | *.0800:|        |
|00001360| 20 20 20 20 20 20 20 34 | 31 20 2a 20 4f 66 66 73 |       4|1 * Offs|
|00001370| 65 74 73 20 69 6e 74 6f | 20 74 68 65 20 64 69 72 |ets into| the dir|
|00001380| 65 63 74 6f 72 79 0d 30 | 38 30 30 3a 20 20 20 20 |ectory.0|800:    |
|00001390| 20 20 20 20 20 20 20 20 | 20 20 20 34 32 20 2a 0d |        |   42 *.|
|000013a0| 30 38 30 30 3a 20 20 20 | 20 20 20 20 20 30 30 30 |0800:   |     000|
|000013b0| 30 20 20 20 34 33 20 6f | 54 79 70 65 20 20 20 20 |0   43 o|Type    |
|000013c0| 20 65 71 75 20 20 20 24 | 30 20 20 20 20 20 20 20 | equ   $|0       |
|000013d0| 20 20 20 20 20 3b 20 6f | 66 66 73 65 74 20 74 6f |     ; o|ffset to|
|000013e0| 20 66 69 6c 65 20 74 79 | 70 65 20 62 79 74 65 0d | file ty|pe byte.|
|000013f0| 30 38 30 30 3a 20 20 20 | 20 20 20 20 20 30 30 32 |0800:   |     002|
|00001400| 33 20 20 20 34 34 20 6f | 45 6e 74 4c 65 6e 20 20 |3   44 o|EntLen  |
|00001410| 20 65 71 75 20 20 20 24 | 32 33 20 20 20 20 20 20 | equ   $|23      |
|00001420| 20 20 20 20 20 3b 20 6c | 65 6e 67 74 68 20 6f 66 |     ; l|ength of|
|00001430| 20 65 61 63 68 20 64 69 | 72 2e 20 65 6e 74 72 79 | each di|r. entry|
|00001440| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 30 30 |.0800:  |      00|
|00001450| 32 34 20 20 20 34 35 20 | 6f 45 6e 74 42 6c 6b 20 |24   45 |oEntBlk |
|00001460| 20 20 65 71 75 20 20 20 | 24 32 34 20 20 20 20 20 |  equ   |$24     |
|00001470| 20 20 20 20 20 20 3b 20 | 65 6e 74 72 69 65 73 20 |      ; |entries |
|00001480| 69 6e 20 65 61 63 68 20 | 62 6c 6f 63 6b 0d 30 38 |in each |block.08|
|00001490| 30 30 3a 20 20 20 20 20 | 20 20 20 30 30 32 35 20 |00:     |   0025 |
|000014a0| 20 20 34 36 20 6f 45 6e | 74 44 69 72 20 20 20 65 |  46 oEn|tDir   e|
|000014b0| 71 75 20 20 20 24 32 35 | 20 20 20 20 20 20 20 20 |qu   $25|        |
|000014c0| 20 20 20 3b 20 65 6e 74 | 72 69 65 73 20 69 6e 20 |   ; ent|ries in |
|000014d0| 65 6e 74 69 72 65 20 64 | 69 72 65 63 74 6f 72 79 |entire d|irectory|
|000014e0| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0800:  |        |
|000014f0| 20 20 20 20 20 34 37 20 | 2a 0d 30 38 30 30 3a 20 |     47 |*.0800: |
|00001500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 34 38 |        |      48|
|00001510| 20 2a 0d 30 38 30 30 3a | 20 20 20 20 20 20 20 20 | *.0800:|        |
|00001520| 20 20 20 20 20 20 20 34 | 39 20 2a 20 4d 6f 6e 69 |       4|9 * Moni|
|00001530| 74 6f 72 20 72 6f 75 74 | 69 6e 65 73 0d 30 38 30 |tor rout|ines.080|
|00001540| 30 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0:      |        |
|00001550| 20 35 30 20 2a 0d 30 38 | 30 30 3a 20 20 20 20 20 | 50 *.08|00:     |
|00001560| 20 20 20 46 44 45 44 20 | 20 20 35 31 20 63 6f 75 |   FDED |  51 cou|
|00001570| 74 20 20 20 20 20 20 65 | 71 75 20 20 20 24 46 44 |t      e|qu   $FD|
|00001580| 45 44 20 20 20 20 20 20 | 20 20 20 3b 20 6f 75 74 |ED      |   ; out|
|00001590| 70 75 74 20 61 20 63 68 | 61 72 61 63 74 65 72 0d |put a ch|aracter.|
|000015a0| 30 38 30 30 3a 20 20 20 | 20 20 20 20 20 46 44 38 |0800:   |     FD8|
|000015b0| 45 20 20 20 35 32 20 63 | 72 6f 75 74 20 20 20 20 |E   52 c|rout    |
|000015c0| 20 65 71 75 20 20 20 24 | 46 44 38 45 20 20 20 20 | equ   $|FD8E    |
|000015d0| 20 20 20 20 20 3b 20 6f | 75 74 70 75 74 20 61 20 |     ; o|utput a |
|000015e0| 52 45 54 55 52 4e 0d 30 | 38 30 30 3a 20 20 20 20 |RETURN.0|800:    |
|000015f0| 20 20 20 20 20 20 20 20 | 20 20 20 35 33 20 2a 0d |        |   53 *.|
|00001600| 30 38 30 30 3a 20 20 20 | 20 20 20 20 20 20 20 20 |0800:   |        |
|00001610| 20 20 20 20 35 34 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |    54 *|********|
|00001620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 30 |********|******.0|
|00001650| 38 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |800:    |        |
|00001660| 20 20 20 35 35 20 2a 0d | 30 38 30 30 3a 20 20 20 |   55 *.|0800:   |
|00001670| 20 20 20 20 20 30 38 30 | 30 20 20 20 35 36 20 53 |     080|0   56 S|
|00001680| 74 61 72 74 20 20 20 20 | 20 65 71 75 20 20 20 2a |tart    | equ   *|
|00001690| 0d 30 38 30 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0800:  |        |
|000016a0| 20 20 20 20 20 35 37 20 | 2a 0d 30 38 30 30 3a 20 |     57 |*.0800: |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 35 38 |        |      58|
|000016c0| 20 2a 20 53 69 6d 70 6c | 65 20 72 6f 75 74 69 6e | * Simpl|e routin|
|000016d0| 65 20 74 6f 20 74 65 73 | 74 20 74 68 65 20 72 65 |e to tes|t the re|
|000016e0| 63 75 72 73 69 76 65 20 | 52 65 61 64 44 69 72 0d |cursive |ReadDir.|
|000016f0| 0d 30 31 20 52 45 43 55 | 52 53 49 56 45 2e 53 20 |.01 RECU|RSIVE.S |
|00001700| 20 20 20 20 50 72 6f 44 | 4f 53 20 43 61 74 61 6c |    ProD|OS Catal|
|00001710| 6f 67 20 52 6f 75 74 69 | 6e 65 20 20 20 20 20 20 |og Routi|ne      |
|00001720| 20 20 20 20 20 20 20 20 | 32 37 2d 41 55 47 2d 38 |        |27-AUG-8|
|00001730| 38 20 20 31 36 3a 32 30 | 20 50 41 47 45 20 33 0d |8  16:20| PAGE 3.|
|00001740| 20 0d 30 38 30 30 3a 20 | 20 20 20 20 20 20 20 20 | .0800: |        |
|00001750| 20 20 20 20 20 20 35 39 | 20 2a 20 72 6f 75 74 69 |      59| * routi|
|00001760| 6e 65 2e 20 49 74 20 67 | 65 74 73 20 61 6e 20 49 |ne. It g|ets an I|
|00001770| 2f 4f 20 62 75 66 66 65 | 72 20 66 6f 72 20 52 65 |/O buffe|r for Re|
|00001780| 61 64 44 69 72 2c 20 67 | 65 74 73 0d 30 38 30 30 |adDir, g|ets.0800|
|00001790| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|000017a0| 36 30 20 2a 20 74 68 65 | 20 63 75 72 72 65 6e 74 |60 * the| current|
|000017b0| 20 70 72 65 66 69 78 2c | 20 73 65 74 73 20 74 68 | prefix,| sets th|
|000017c0| 65 20 64 65 70 74 68 20 | 6f 66 20 72 65 63 75 72 |e depth |of recur|
|000017d0| 73 69 6f 6e 0d 30 38 30 | 30 3a 20 20 20 20 20 20 |sion.080|0:      |
|000017e0| 20 20 20 20 20 20 20 20 | 20 36 31 20 2a 20 74 6f |        | 61 * to|
|000017f0| 20 7a 65 72 6f 2c 20 61 | 6e 64 20 63 61 6c 6c 73 | zero, a|nd calls|
|00001800| 20 52 65 61 64 44 69 72 | 20 74 6f 20 70 72 6f 63 | ReadDir| to proc|
|00001810| 65 73 73 20 61 6c 6c 20 | 6f 66 20 74 68 65 0d 30 |ess all |of the.0|
|00001820| 38 30 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |800:    |        |
|00001830| 20 20 20 36 32 20 2a 20 | 65 6e 74 72 69 65 73 20 |   62 * |entries |
|00001840| 69 6e 20 74 68 65 20 64 | 69 72 65 63 74 6f 72 79 |in the d|irectory|
|00001850| 2e 0d 30 38 30 30 3a 20 | 20 20 20 20 20 20 20 20 |..0800: |        |
|00001860| 20 20 20 20 20 20 36 33 | 20 2a 0d 30 38 30 30 3a |      63| *.0800:|
|00001870| 41 39 20 30 34 20 20 20 | 20 20 20 20 20 20 20 36 |A9 04   |       6|
|00001880| 34 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 61 20 |4       |    lda |
|00001890| 20 20 23 34 20 20 20 20 | 20 20 20 20 20 20 20 20 |  #4    |        |
|000018a0| 3b 20 67 65 74 20 61 6e | 20 49 2f 4f 20 62 75 66 |; get an| I/O buf|
|000018b0| 66 65 72 0d 30 38 30 32 | 3a 32 30 20 46 35 20 42 |fer.0802|:20 F5 B|
|000018c0| 45 20 20 20 20 20 20 20 | 36 35 20 20 20 20 20 20 |E       |65      |
|000018d0| 20 20 20 20 20 6a 73 72 | 20 20 20 47 65 74 42 75 |     jsr|   GetBu|
|000018e0| 66 72 0d 30 38 30 35 3a | 42 30 20 31 37 20 20 20 |fr.0805:|B0 17   |
|000018f0| 30 38 31 45 20 20 20 36 | 36 20 20 20 20 20 20 20 |081E   6|6       |
|00001900| 20 20 20 20 62 63 73 20 | 20 20 65 78 69 74 20 20 |    bcs |  exit  |
|00001910| 20 20 20 20 20 20 20 20 | 3b 20 64 69 64 6e 27 74 |        |; didn't|
|00001920| 20 67 65 74 20 69 74 0d | 30 38 30 37 3a 38 44 20 | get it.|0807:8D |
|00001930| 44 44 20 30 39 20 20 20 | 20 20 20 20 36 37 20 20 |DD 09   |    67  |
|00001940| 20 20 20 20 20 20 20 20 | 20 73 74 61 20 20 20 69 |        | sta   i|
|00001950| 6f 42 75 66 2b 31 0d 30 | 38 30 41 3a 20 20 20 20 |oBuf+1.0|80A:    |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 36 38 20 2a 0d |        |   68 *.|
|00001970| 30 38 30 41 3a 32 30 20 | 30 30 20 42 46 20 20 20 |080A:20 |00 BF   |
|00001980| 20 20 20 20 36 39 20 20 | 20 20 20 20 20 20 20 20 |    69  |        |
|00001990| 20 6a 73 72 20 20 20 4d | 4c 49 0d 30 38 30 44 3a | jsr   M|LI.080D:|
|000019a0| 43 37 20 20 20 20 20 20 | 20 20 20 20 20 20 20 37 |C7      |       7|
|000019b0| 30 20 20 20 20 20 20 20 | 20 20 20 20 64 62 20 20 |0       |    db  |
|000019c0| 20 20 47 65 74 50 43 6d | 64 0d 30 38 30 45 3a 45 |  GetPCm|d.080E:E|
|000019d0| 45 20 30 39 20 20 20 20 | 20 20 20 20 20 20 37 31 |E 09    |      71|
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 64 77 20 20 20 |        |   dw   |
|000019f0| 20 47 65 74 50 50 61 72 | 6d 73 0d 30 38 31 30 3a | GetPPar|ms.0810:|
|00001a00| 42 30 20 30 43 20 20 20 | 30 38 31 45 20 20 20 37 |B0 0C   |081E   7|
|00001a10| 32 20 20 20 20 20 20 20 | 20 20 20 20 62 63 73 20 |2       |    bcs |
|00001a20| 20 20 65 78 69 74 0d 30 | 38 31 32 3a 20 20 20 20 |  exit.0|812:    |
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 37 33 20 2a 0d |        |   73 *.|
|00001a40| 30 38 31 32 3a 41 39 20 | 30 30 20 20 20 20 20 20 |0812:A9 |00      |
|00001a50| 20 20 20 20 37 34 20 20 | 20 20 20 20 20 20 20 20 |    74  |        |
|00001a60| 20 6c 64 61 20 20 20 23 | 30 0d 30 38 31 34 3a 38 | lda   #|0.0814:8|
|00001a70| 44 20 44 32 20 30 39 20 | 20 20 20 20 20 20 37 35 |D D2 09 |      75|
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 61 20 20 |        |   sta  |
|00001a90| 20 44 65 70 74 68 0d 30 | 38 31 37 3a 20 20 20 20 | Depth.0|817:    |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 20 20 37 36 20 2a 0d |        |   76 *.|
|00001ab0| 30 38 31 37 3a 41 39 20 | 46 31 20 20 20 20 20 20 |0817:A9 |F1      |
|00001ac0| 20 20 20 20 37 37 20 20 | 20 20 20 20 20 20 20 20 |    77  |        |
|00001ad0| 20 6c 64 61 20 20 20 23 | 6e 61 6d 65 42 75 66 66 | lda   #|nameBuff|
|00001ae0| 65 72 0d 30 38 31 39 3a | 41 32 20 30 42 20 20 20 |er.0819:|A2 0B   |
|00001af0| 20 20 20 20 20 20 20 37 | 38 20 20 20 20 20 20 20 |       7|8       |
|00001b00| 20 20 20 20 6c 64 78 20 | 20 20 23 3c 6e 61 6d 65 |    ldx |  #<name|
|00001b10| 42 75 66 66 65 72 0d 30 | 38 31 42 3a 32 30 20 31 |Buffer.0|81B:20 1|
|00001b20| 46 20 30 38 20 20 20 20 | 20 20 20 37 39 20 20 20 |F 08    |   79   |
|00001b30| 20 20 20 20 20 20 20 20 | 6a 73 72 20 20 20 52 65 |        |jsr   Re|
|00001b40| 61 64 44 69 72 0d 30 38 | 31 45 3a 20 20 20 20 20 |adDir.08|1E:     |
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 38 30 20 2a 0d 30 |        |  80 *.0|
|00001b60| 38 31 45 3a 20 20 20 20 | 20 20 20 20 30 38 31 45 |81E:    |    081E|
|00001b70| 20 20 20 38 31 20 65 78 | 69 74 20 20 20 20 20 20 |   81 ex|it      |
|00001b80| 65 71 75 20 20 20 2a 0d | 30 38 31 45 3a 36 30 20 |equ   *.|081E:60 |
|00001b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 38 32 20 20 |        |    82  |
|00001ba0| 20 20 20 20 20 20 20 20 | 20 72 74 73 0d 30 38 31 |        | rts.081|
|00001bb0| 46 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F:      |        |
|00001bc0| 20 38 33 20 2a 0d 30 38 | 31 46 3a 20 20 20 20 20 | 83 *.08|1F:     |
|00001bd0| 20 20 20 20 20 20 20 20 | 20 20 38 34 20 2a 2a 2a |        |  84 ***|
|00001be0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001c10| 2a 2a 2a 2a 0d 30 38 31 | 46 3a 20 20 20 20 20 20 |****.081|F:      |
|00001c20| 20 20 20 20 20 20 20 20 | 20 38 35 20 2a 0d 30 38 |        | 85 *.08|
|00001c30| 31 46 3a 20 20 20 20 20 | 20 20 20 30 38 31 46 20 |1F:     |   081F |
|00001c40| 20 20 38 36 20 52 65 61 | 64 44 69 72 20 20 20 65 |  86 Rea|dDir   e|
|00001c50| 71 75 20 20 20 2a 0d 30 | 38 31 46 3a 20 20 20 20 |qu   *.0|81F:    |
|00001c60| 20 20 20 20 20 20 20 20 | 20 20 20 38 37 20 2a 0d |        |   87 *.|
|00001c70| 30 38 31 46 3a 20 20 20 | 20 20 20 20 20 20 20 20 |081F:   |        |
|00001c80| 20 20 20 20 38 38 20 2a | 20 20 54 68 69 73 20 69 |    88 *|  This i|
|00001c90| 73 20 74 68 65 20 61 63 | 74 75 61 6c 20 72 65 63 |s the ac|tual rec|
|00001ca0| 75 72 73 69 76 65 20 72 | 6f 75 74 69 6e 65 2e 20 |ursive r|outine. |
|00001cb0| 49 74 20 74 61 6b 65 73 | 20 61 73 0d 30 38 31 46 |It takes| as.081F|
|00001cc0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00001cd0| 38 39 20 2a 20 20 69 6e | 70 75 74 20 61 20 70 6f |89 *  in|put a po|
|00001ce0| 69 6e 74 65 72 20 74 6f | 20 74 68 65 20 64 69 72 |inter to| the dir|
|00001cf0| 65 63 74 6f 72 79 20 6e | 61 6d 65 20 74 6f 20 72 |ectory n|ame to r|
|00001d00| 65 61 64 20 69 6e 0d 30 | 38 31 46 3a 20 20 20 20 |ead in.0|81F:    |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 39 30 20 2a 20 |        |   90 * |
|00001d20| 20 41 2c 58 20 28 6c 6f | 2c 68 69 29 2c 20 6f 70 | A,X (lo|,hi), op|
|00001d30| 65 6e 73 20 69 74 2c 20 | 61 6e 64 20 73 74 61 72 |ens it, |and star|
|00001d40| 74 73 20 74 6f 20 72 65 | 61 64 20 74 68 65 0d 30 |ts to re|ad the.0|
|00001d50| 38 31 46 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |81F:    |        |
|00001d60| 20 20 20 39 31 20 2a 20 | 20 65 6e 74 72 69 65 73 |   91 * | entries|
|00001d70| 2e 20 57 68 65 6e 20 69 | 74 20 65 6e 63 6f 75 6e |. When i|t encoun|
|00001d80| 74 65 72 73 20 61 20 66 | 69 6c 65 6e 61 6d 65 2c |ters a f|ilename,|
|00001d90| 20 69 74 20 63 61 6c 6c | 73 0d 30 38 31 46 3a 20 | it call|s.081F: |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 39 32 |        |      92|
|00001db0| 20 2a 20 20 74 68 65 20 | 72 6f 75 74 69 6e 65 20 | *  the |routine |
|00001dc0| 22 56 69 73 69 74 46 69 | 6c 65 22 2e 20 57 68 65 |"VisitFi|le". Whe|
|00001dd0| 6e 20 69 74 20 65 6e 63 | 6f 75 6e 74 65 72 73 20 |n it enc|ounters |
|00001de0| 61 0d 30 38 31 46 3a 20 | 20 20 20 20 20 20 20 20 |a.081F: |        |
|00001df0| 20 20 20 20 20 20 39 33 | 20 2a 20 20 64 69 72 65 |      93| *  dire|
|00001e00| 63 74 6f 72 79 20 6e 61 | 6d 65 2c 20 69 74 20 63 |ctory na|me, it c|
|00001e10| 61 6c 6c 73 20 22 56 69 | 73 69 74 44 69 72 22 2e |alls "Vi|sitDir".|
|00001e20| 0d 30 38 31 46 3a 20 20 | 20 20 20 20 20 20 20 20 |.081F:  |        |
|00001e30| 20 20 20 20 20 39 34 20 | 2a 0d 30 38 31 46 3a 20 |     94 |*.081F: |
|00001e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 39 35 |        |      95|
|00001e50| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00001e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e80| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 30 38 31 46 3a 20 20 |********|.081F:  |
|00001e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 39 36 20 |        |     96 |
|00001ea0| 2a 0d 30 38 31 46 3a 38 | 35 20 38 30 20 20 20 20 |*.081F:8|5 80    |
|00001eb0| 20 20 20 20 20 20 39 37 | 20 20 20 20 20 20 20 20 |      97|        |
|00001ec0| 20 20 20 73 74 61 20 20 | 20 64 69 72 4e 61 6d 65 |   sta  | dirName|
|00001ed0| 20 20 20 20 20 20 20 3b | 20 73 61 76 65 20 61 20 |       ;| save a |
|00001ee0| 70 6f 69 6e 74 65 72 20 | 74 6f 20 6e 61 6d 65 0d |pointer |to name.|
|00001ef0| 30 38 32 31 3a 38 36 20 | 38 31 20 20 20 20 20 20 |0821:86 |81      |
|00001f00| 20 20 20 20 39 38 20 20 | 20 20 20 20 20 20 20 20 |    98  |        |
|00001f10| 20 73 74 78 20 20 20 64 | 69 72 4e 61 6d 65 2b 31 | stx   d|irName+1|
|00001f20| 0d 30 38 32 33 3a 20 20 | 20 20 20 20 20 20 20 20 |.0823:  |        |
|00001f30| 20 20 20 20 20 39 39 20 | 2a 0d 30 38 32 33 3a 38 |     99 |*.0823:8|
|00001f40| 44 20 44 41 20 30 39 20 | 20 20 20 20 20 31 30 30 |D DA 09 |     100|
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 61 20 20 |        |   sta  |
|00001f60| 20 6f 70 65 6e 4e 61 6d | 65 20 20 20 20 20 20 3b | openNam|e      ;|
|00001f70| 20 73 65 74 20 75 70 20 | 4f 70 65 6e 46 69 6c 65 | set up |OpenFile|
|00001f80| 20 70 61 72 61 6d 73 0d | 30 38 32 36 3a 38 45 20 | params.|0826:8E |
|00001f90| 44 42 20 30 39 20 20 20 | 20 20 20 31 30 31 20 20 |DB 09   |   101  |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 73 74 78 20 20 20 6f |        | stx   o|
|00001fb0| 70 65 6e 4e 61 6d 65 2b | 31 0d 30 38 32 39 3a 20 |penName+|1.0829: |
|00001fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 31 30 32 |        |     102|
|00001fd0| 20 2a 0d 30 38 32 39 3a | 20 20 20 20 20 20 20 20 | *.0829:|        |
|00001fe0| 30 38 32 39 20 20 31 30 | 33 20 52 65 61 64 44 69 |0829  10|3 ReadDi|
|00001ff0| 72 31 20 20 65 71 75 20 | 20 20 2a 20 20 20 20 20 |r1  equ |  *     |
|00002000| 20 20 20 20 20 20 20 20 | 3b 20 72 65 63 75 72 73 |        |; recurs|
|00002010| 69 76 65 20 65 6e 74 72 | 79 20 70 6f 69 6e 74 0d |ive entr|y point.|
|00002020| 30 38 32 39 3a 32 30 20 | 35 34 20 30 38 20 20 20 |0829:20 |54 08   |
|00002030| 20 20 20 31 30 34 20 20 | 20 20 20 20 20 20 20 20 |   104  |        |
|00002040| 20 6a 73 72 20 20 20 4f | 70 65 6e 44 69 72 20 20 | jsr   O|penDir  |
|00002050| 20 20 20 20 20 3b 20 6f | 70 65 6e 20 74 68 65 20 |     ; o|pen the |
|00002060| 64 69 72 65 63 74 6f 72 | 79 20 61 73 20 61 20 66 |director|y as a f|
|00002070| 69 6c 65 0d 30 38 32 43 | 3a 42 30 20 31 46 20 20 |ile.082C|:B0 1F  |
|00002080| 20 30 38 34 44 20 20 31 | 30 35 20 20 20 20 20 20 | 084D  1|05      |
|00002090| 20 20 20 20 20 62 63 73 | 20 20 20 64 6f 6e 65 0d |     bcs|   done.|
|000020a0| 30 38 32 45 3a 20 20 20 | 20 20 20 20 20 20 20 20 |082E:   |        |
|000020b0| 20 20 20 31 30 36 20 2a | 0d 30 38 32 45 3a 34 43 |   106 *|.082E:4C|
|000020c0| 20 34 38 20 30 38 20 20 | 20 20 20 20 31 30 37 20 | 48 08  |    107 |
|000020d0| 20 20 20 20 20 20 20 20 | 20 20 6a 6d 70 20 20 20 |        |  jmp   |
|000020e0| 6e 65 78 74 45 6e 74 72 | 79 20 20 20 20 20 3b 20 |nextEntr|y     ; |
|000020f0| 6a 75 6d 70 20 74 6f 20 | 74 68 65 20 65 6e 64 20 |jump to |the end |
|00002100| 6f 66 20 74 68 65 20 6c | 6f 6f 70 0d 30 38 33 31 |of the l|oop.0831|
|00002110| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:       |       1|
|00002120| 30 38 20 2a 0d 30 38 33 | 31 3a 20 20 20 20 20 20 |08 *.083|1:      |
|00002130| 20 20 30 38 33 31 20 20 | 31 30 39 20 6c 6f 6f 70 |  0831  |109 loop|
|00002140| 20 20 20 20 20 20 65 71 | 75 20 20 20 2a 0d 30 38 |      eq|u   *.08|
|00002150| 33 31 3a 41 30 20 30 30 | 20 20 20 20 20 20 20 20 |31:A0 00|        |
|00002160| 20 31 31 30 20 20 20 20 | 20 20 20 20 20 20 20 6c | 110    |       l|
|00002170| 64 79 20 20 20 23 6f 54 | 79 70 65 20 20 20 20 20 |dy   #oT|ype     |
|00002180| 20 20 20 3b 20 67 65 74 | 20 74 79 70 65 20 6f 66 |   ; get| type of|
|00002190| 20 63 75 72 72 65 6e 74 | 20 65 6e 74 72 79 0d 30 | current| entry.0|
|000021a0| 38 33 33 3a 42 31 20 38 | 32 20 20 20 20 20 20 20 |833:B1 8|2       |
|000021b0| 20 20 31 31 31 20 20 20 | 20 20 20 20 20 20 20 20 |  111   |        |
|000021c0| 6c 64 61 20 20 20 28 65 | 6e 74 50 74 72 29 2c 79 |lda   (e|ntPtr),y|
|000021d0| 0d 30 38 33 35 3a 43 39 | 20 30 30 20 20 20 20 20 |.0835:C9| 00     |
|000021e0| 20 20 20 20 31 31 32 20 | 20 20 20 20 20 20 20 20 |    112 |        |
|000021f0| 20 20 63 6d 70 20 20 20 | 23 30 20 20 20 20 20 20 |  cmp   |#0      |
|00002200| 20 20 20 20 20 20 3b 20 | 69 6e 61 63 74 69 76 65 |      ; |inactive|
|00002210| 20 65 6e 74 72 79 3f 0d | 30 38 33 37 3a 46 30 20 | entry?.|0837:F0 |
|00002220| 30 46 20 20 20 30 38 34 | 38 20 20 31 31 33 20 20 |0F   084|8  113  |
|00002230| 20 20 20 20 20 20 20 20 | 20 62 65 71 20 20 20 6e |        | beq   n|
|00002240| 65 78 74 45 6e 74 72 79 | 20 20 20 20 20 3b 20 79 |extEntry|     ; y|
|00002250| 65 73 20 2d 20 62 75 6d | 70 20 74 6f 20 6e 65 78 |es - bum|p to nex|
|00002260| 74 20 6f 6e 65 0d 30 38 | 33 39 3a 32 39 20 46 30 |t one.08|39:29 F0|
|00002270| 20 20 20 20 20 20 20 20 | 20 31 31 34 20 20 20 20 |        | 114    |
|00002280| 20 20 20 20 20 20 20 61 | 6e 64 20 20 20 23 24 46 |       a|nd   #$F|
|00002290| 30 20 20 20 20 20 20 20 | 20 20 20 3b 20 6c 6f 6f |0       |   ; loo|
|000022a0| 6b 20 61 74 20 34 20 68 | 69 67 68 20 62 69 74 73 |k at 4 h|igh bits|
|000022b0| 0d 30 38 33 42 3a 43 39 | 20 44 30 20 20 20 20 20 |.083B:C9| D0     |
|000022c0| 20 20 20 20 31 31 35 20 | 20 20 20 20 20 20 20 20 |    115 |        |
|000022d0| 20 20 63 6d 70 20 20 20 | 23 24 44 30 20 20 20 20 |  cmp   |#$D0    |
|000022e0| 20 20 20 20 20 20 3b 20 | 69 73 20 69 74 20 61 20 |      ; |is it a |
|000022f0| 64 69 72 65 63 74 6f 72 | 79 3f 0d 30 38 33 44 3a |director|y?.083D:|
|00002300| 46 30 20 30 36 20 20 20 | 30 38 34 35 20 20 31 31 |F0 06   |0845  11|
|00002310| 36 20 20 20 20 20 20 20 | 20 20 20 20 62 65 71 20 |6       |    beq |
|00002320| 20 20 49 74 73 41 44 69 | 72 20 20 20 20 20 20 20 |  ItsADi|r       |
|00002330| 3b 20 79 65 73 2c 20 73 | 6f 20 63 61 6c 6c 20 56 |; yes, s|o call V|
|00002340| 69 73 69 74 44 69 72 0d | 0d 30 31 20 52 45 43 55 |isitDir.|.01 RECU|
|00002350| 52 53 49 56 45 2e 53 20 | 20 20 20 20 50 72 6f 44 |RSIVE.S |    ProD|
|00002360| 4f 53 20 43 61 74 61 6c | 6f 67 20 52 6f 75 74 69 |OS Catal|og Routi|
|00002370| 6e 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ne      |        |
|00002380| 32 37 2d 41 55 47 2d 38 | 38 20 20 31 36 3a 32 30 |27-AUG-8|8  16:20|
|00002390| 20 50 41 47 45 20 34 0d | 20 0d 30 38 33 46 3a 32 | PAGE 4.| .083F:2|
|000023a0| 30 20 39 41 20 30 38 20 | 20 20 20 20 20 31 31 37 |0 9A 08 |     117|
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 6a 73 72 20 20 |        |   jsr  |
|000023c0| 20 56 69 73 69 74 46 69 | 6c 65 20 20 20 20 20 3b | VisitFi|le     ;|
|000023d0| 20 6e 6f 2c 20 69 74 27 | 73 20 61 20 66 69 6c 65 | no, it'|s a file|
|000023e0| 0d 30 38 34 32 3a 34 43 | 20 34 38 20 30 38 20 20 |.0842:4C| 48 08  |
|000023f0| 20 20 20 20 31 31 38 20 | 20 20 20 20 20 20 20 20 |    118 |        |
|00002400| 20 20 6a 6d 70 20 20 20 | 6e 65 78 74 45 6e 74 72 |  jmp   |nextEntr|
|00002410| 79 0d 30 38 34 35 3a 20 | 20 20 20 20 20 20 20 30 |y.0845: |       0|
|00002420| 38 34 35 20 20 31 31 39 | 20 49 74 73 41 44 69 72 |845  119| ItsADir|
|00002430| 20 20 20 65 71 75 20 20 | 20 2a 0d 30 38 34 35 3a |   equ  | *.0845:|
|00002440| 32 30 20 41 31 20 30 38 | 20 20 20 20 20 20 31 32 |20 A1 08|      12|
|00002450| 30 20 20 20 20 20 20 20 | 20 20 20 20 6a 73 72 20 |0       |    jsr |
|00002460| 20 20 56 69 73 69 74 44 | 69 72 0d 30 38 34 38 3a |  VisitD|ir.0848:|
|00002470| 20 20 20 20 20 20 20 20 | 30 38 34 38 20 20 31 32 |        |0848  12|
|00002480| 31 20 6e 65 78 74 45 6e | 74 72 79 20 65 71 75 20 |1 nextEn|try equ |
|00002490| 20 20 2a 0d 30 38 34 38 | 3a 32 30 20 36 38 20 30 |  *.0848|:20 68 0|
|000024a0| 39 20 20 20 20 20 20 31 | 32 32 20 20 20 20 20 20 |9      1|22      |
|000024b0| 20 20 20 20 20 6a 73 72 | 20 20 20 47 65 74 4e 65 |     jsr|   GetNe|
|000024c0| 78 74 20 20 20 20 20 20 | 20 3b 20 67 65 74 20 70 |xt      | ; get p|
|000024d0| 6f 69 6e 74 65 72 20 74 | 6f 20 6e 65 78 74 20 65 |ointer t|o next e|
|000024e0| 6e 74 72 79 0d 30 38 34 | 42 3a 39 30 20 45 34 20 |ntry.084|B:90 E4 |
|000024f0| 20 20 30 38 33 31 20 20 | 31 32 33 20 20 20 20 20 |  0831  |123     |
|00002500| 20 20 20 20 20 20 62 63 | 63 20 20 20 6c 6f 6f 70 |      bc|c   loop|
|00002510| 20 20 20 20 20 20 20 20 | 20 20 3b 20 43 61 72 72 |        |  ; Carr|
|00002520| 79 20 73 65 74 20 6d 65 | 61 6e 73 20 77 65 27 72 |y set me|ans we'r|
|00002530| 65 20 64 6f 6e 65 0d 30 | 38 34 44 3a 20 20 20 20 |e done.0|84D:    |
|00002540| 20 20 20 20 30 38 34 44 | 20 20 31 32 34 20 64 6f |    084D|  124 do|
|00002550| 6e 65 20 20 20 20 20 20 | 65 71 75 20 20 20 2a 0d |ne      |equ   *.|
|00002560| 30 38 34 44 3a 20 20 20 | 20 20 20 20 20 20 20 20 |084D:   |        |
|00002570| 20 20 20 31 32 35 20 2a | 0d 30 38 34 44 3a 32 30 |   125 *|.084D:20|
|00002580| 20 30 30 20 42 46 20 20 | 20 20 20 20 31 32 36 20 | 00 BF  |    126 |
|00002590| 20 20 20 20 20 20 20 20 | 20 20 6a 73 72 20 20 20 |        |  jsr   |
|000025a0| 4d 4c 49 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |MLI     |      ; |
|000025b0| 63 6c 6f 73 65 20 74 68 | 65 20 64 69 72 65 63 74 |close th|e direct|
|000025c0| 6f 72 79 0d 30 38 35 30 | 3a 43 43 20 20 20 20 20 |ory.0850|:CC     |
|000025d0| 20 20 20 20 20 20 20 31 | 32 37 20 20 20 20 20 20 |       1|27      |
|000025e0| 20 20 20 20 20 64 62 20 | 20 20 20 43 6c 6f 73 65 |     db |   Close|
|000025f0| 43 6d 64 0d 30 38 35 31 | 3a 45 37 20 30 39 20 20 |Cmd.0851|:E7 09  |
|00002600| 20 20 20 20 20 20 20 31 | 32 38 20 20 20 20 20 20 |       1|28      |
|00002610| 20 20 20 20 20 64 77 20 | 20 20 20 43 6c 6f 73 65 |     dw |   Close|
|00002620| 50 61 72 6d 73 0d 30 38 | 35 33 3a 20 20 20 20 20 |Parms.08|53:     |
|00002630| 20 20 20 20 20 20 20 20 | 20 31 32 39 20 2a 0d 30 |        | 129 *.0|
|00002640| 38 35 33 3a 36 30 20 20 | 20 20 20 20 20 20 20 20 |853:60  |        |
|00002650| 20 20 31 33 30 20 20 20 | 20 20 20 20 20 20 20 20 |  130   |        |
|00002660| 72 74 73 0d 30 38 35 34 | 3a 20 20 20 20 20 20 20 |rts.0854|:       |
|00002670| 20 20 20 20 20 20 20 31 | 33 31 20 2a 0d 30 38 35 |       1|31 *.085|
|00002680| 34 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4:      |        |
|00002690| 31 33 32 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |132 ****|********|
|000026a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 30 38 35 34 |********|***.0854|
|000026d0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:       |       1|
|000026e0| 33 33 20 2a 0d 30 38 35 | 34 3a 20 20 20 20 20 20 |33 *.085|4:      |
|000026f0| 20 20 30 38 35 34 20 20 | 31 33 34 20 4f 70 65 6e |  0854  |134 Open|
|00002700| 44 69 72 20 20 20 65 71 | 75 20 20 20 2a 0d 30 38 |Dir   eq|u   *.08|
|00002710| 35 34 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |54:     |        |
|00002720| 20 31 33 35 20 2a 0d 30 | 38 35 34 3a 20 20 20 20 | 135 *.0|854:    |
|00002730| 20 20 20 20 20 20 20 20 | 20 20 31 33 36 20 2a 20 |        |  136 * |
|00002740| 20 4f 70 65 6e 73 20 74 | 68 65 20 64 69 72 65 63 | Opens t|he direc|
|00002750| 74 6f 72 79 20 70 6f 69 | 6e 74 65 64 20 74 6f 20 |tory poi|nted to |
|00002760| 62 79 20 4f 70 65 6e 50 | 61 72 6d 73 0d 30 38 35 |by OpenP|arms.085|
|00002770| 34 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4:      |        |
|00002780| 31 33 37 20 2a 20 20 70 | 61 72 61 6d 65 74 65 72 |137 *  p|arameter|
|00002790| 20 62 6c 6f 63 6b 2e 20 | 54 68 69 73 20 70 6f 69 | block. |This poi|
|000027a0| 6e 74 65 72 20 73 68 6f | 75 6c 64 20 62 65 20 69 |nter sho|uld be i|
|000027b0| 6e 69 74 2d 0d 30 38 35 | 34 3a 20 20 20 20 20 20 |nit-.085|4:      |
|000027c0| 20 20 20 20 20 20 20 20 | 31 33 38 20 2a 20 20 69 |        |138 *  i|
|000027d0| 61 6c 69 7a 65 64 20 42 | 45 46 4f 52 45 20 74 68 |alized B|EFORE th|
|000027e0| 69 73 20 72 6f 75 74 69 | 6e 65 20 69 73 20 63 61 |is routi|ne is ca|
|000027f0| 6c 6c 65 64 2e 20 49 66 | 20 74 68 65 0d 30 38 35 |lled. If| the.085|
|00002800| 34 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4:      |        |
|00002810| 31 33 39 20 2a 20 20 66 | 69 6c 65 20 69 73 20 73 |139 *  f|ile is s|
|00002820| 75 63 63 65 73 73 66 75 | 6c 6c 79 20 6f 70 65 6e |uccessfu|lly open|
|00002830| 65 64 2c 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ed, the |followin|
|00002840| 67 0d 30 38 35 34 3a 20 | 20 20 20 20 20 20 20 20 |g.0854: |        |
|00002850| 20 20 20 20 20 31 34 30 | 20 2a 20 20 76 61 72 69 |     140| *  vari|
|00002860| 61 62 6c 65 73 20 61 72 | 65 20 73 65 74 3a 0d 30 |ables ar|e set:.0|
|00002870| 38 35 34 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |854:    |        |
|00002880| 20 20 31 34 31 20 2a 0d | 30 38 35 34 3a 20 20 20 |  141 *.|0854:   |
|00002890| 20 20 20 20 20 20 20 20 | 20 20 20 31 34 32 20 2a |        |   142 *|
|000028a0| 20 20 20 20 20 78 52 65 | 66 4e 75 6d 20 20 20 20 |     xRe|fNum    |
|000028b0| 20 3b 20 61 6c 6c 20 74 | 68 65 20 72 65 66 6e 75 | ; all t|he refnu|
|000028c0| 6d 73 0d 30 38 35 34 3a | 20 20 20 20 20 20 20 20 |ms.0854:|        |
|000028d0| 20 20 20 20 20 20 31 34 | 33 20 2a 20 20 20 20 20 |      14|3 *     |
|000028e0| 65 6e 74 72 79 4c 65 6e | 20 20 20 20 3b 20 73 69 |entryLen|    ; si|
|000028f0| 7a 65 20 6f 66 20 64 69 | 72 65 63 74 6f 72 79 20 |ze of di|rectory |
|00002900| 65 6e 74 72 69 65 73 0d | 30 38 35 34 3a 20 20 20 |entries.|0854:   |
|00002910| 20 20 20 20 20 20 20 20 | 20 20 20 31 34 34 20 2a |        |   144 *|
|00002920| 20 20 20 20 20 65 6e 74 | 50 74 72 20 20 20 20 20 |     ent|Ptr     |
|00002930| 20 3b 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 63 75 | ; point|er to cu|
|00002940| 72 72 65 6e 74 20 65 6e | 74 72 79 0d 30 38 35 34 |rrent en|try.0854|
|00002950| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:       |       1|
|00002960| 34 35 20 2a 20 20 20 20 | 20 54 68 69 73 42 45 6e |45 *    | ThisBEn|
|00002970| 74 72 79 20 20 3b 20 65 | 6e 74 72 79 20 6e 75 6d |try  ; e|ntry num|
|00002980| 62 65 72 20 77 69 74 68 | 69 6e 20 74 68 69 73 20 |ber with|in this |
|00002990| 62 6c 6f 63 6b 0d 30 38 | 35 34 3a 20 20 20 20 20 |block.08|54:     |
|000029a0| 20 20 20 20 20 20 20 20 | 20 31 34 36 20 2a 20 20 |        | 146 *  |
|000029b0| 20 20 20 54 68 69 73 45 | 6e 74 72 79 20 20 20 3b |   ThisE|ntry   ;|
|000029c0| 20 65 6e 74 72 79 20 6e | 75 6d 62 65 72 20 77 69 | entry n|umber wi|
|000029d0| 74 68 69 6e 20 74 68 69 | 73 20 64 69 72 2e 0d 30 |thin thi|s dir..0|
|000029e0| 38 35 34 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |854:    |        |
|000029f0| 20 20 31 34 37 20 2a 20 | 20 20 20 20 54 68 69 73 |  147 * |    This|
|00002a00| 42 6c 6f 63 6b 20 20 20 | 3b 20 6f 66 66 73 65 74 |Block   |; offset|
|00002a10| 20 28 69 6e 20 62 6c 6f | 63 6b 73 29 20 69 6e 74 | (in blo|cks) int|
|00002a20| 6f 20 64 69 72 2e 0d 30 | 38 35 34 3a 20 20 20 20 |o dir..0|854:    |
|00002a30| 20 20 20 20 20 20 20 20 | 20 20 31 34 38 20 2a 0d |        |  148 *.|
|00002a40| 30 38 35 34 3a 32 30 20 | 30 30 20 42 46 20 20 20 |0854:20 |00 BF   |
|00002a50| 20 20 20 31 34 39 20 20 | 20 20 20 20 20 20 20 20 |   149  |        |
|00002a60| 20 6a 73 72 20 20 20 4d | 4c 49 20 20 20 20 20 20 | jsr   M|LI      |
|00002a70| 20 20 20 20 20 3b 20 6f | 70 65 6e 20 64 69 72 20 |     ; o|pen dir |
|00002a80| 61 73 20 61 20 66 69 6c | 65 0d 30 38 35 37 3a 43 |as a fil|e.0857:C|
|00002a90| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 31 35 30 |8       |     150|
|00002aa0| 20 20 20 20 20 20 20 20 | 20 20 20 64 62 20 20 20 |        |   db   |
|00002ab0| 20 4f 70 65 6e 43 6d 64 | 0d 30 38 35 38 3a 44 39 | OpenCmd|.0858:D9|
|00002ac0| 20 30 39 20 20 20 20 20 | 20 20 20 20 31 35 31 20 | 09     |    151 |
|00002ad0| 20 20 20 20 20 20 20 20 | 20 20 64 77 20 20 20 20 |        |  dw    |
|00002ae0| 4f 70 65 6e 50 61 72 6d | 73 0d 30 38 35 41 3a 42 |OpenParm|s.085A:B|
|00002af0| 30 20 33 44 20 20 20 30 | 38 39 39 20 20 31 35 32 |0 3D   0|899  152|
|00002b00| 20 20 20 20 20 20 20 20 | 20 20 20 62 63 73 20 20 |        |   bcs  |
|00002b10| 20 4f 70 65 6e 44 6f 6e | 65 0d 30 38 35 43 3a 20 | OpenDon|e.085C: |
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 31 35 33 |        |     153|
|00002b30| 20 2a 0d 30 38 35 43 3a | 41 44 20 44 45 20 30 39 | *.085C:|AD DE 09|
|00002b40| 20 20 20 20 20 20 31 35 | 34 20 20 20 20 20 20 20 |      15|4       |
|00002b50| 20 20 20 20 6c 64 61 20 | 20 20 6f 52 65 66 4e 75 |    lda |  oRefNu|
|00002b60| 6d 20 20 20 20 20 20 20 | 3b 20 63 6f 70 79 20 74 |m       |; copy t|
|00002b70| 68 65 20 72 65 66 6e 75 | 6d 20 72 65 74 75 72 6e |he refnu|m return|
|00002b80| 2d 0d 30 38 35 46 3a 38 | 44 20 45 30 20 30 39 20 |-.085F:8|D E0 09 |
|00002b90| 20 20 20 20 20 31 35 35 | 20 20 20 20 20 20 20 20 |     155|        |
|00002ba0| 20 20 20 73 74 61 20 20 | 20 72 52 65 66 4e 75 6d |   sta  | rRefNum|
|00002bb0| 20 20 20 20 20 20 20 3b | 20 65 64 20 62 79 20 4f |       ;| ed by O|
|00002bc0| 70 65 6e 20 69 6e 74 6f | 20 74 68 65 0d 30 38 36 |pen into| the.086|
|00002bd0| 32 3a 38 44 20 45 38 20 | 30 39 20 20 20 20 20 20 |2:8D E8 |09      |
|00002be0| 31 35 36 20 20 20 20 20 | 20 20 20 20 20 20 73 74 |156     |      st|
|00002bf0| 61 20 20 20 63 52 65 66 | 4e 75 6d 20 20 20 20 20 |a   cRef|Num     |
|00002c00| 20 20 3b 20 6f 74 68 65 | 72 20 70 61 72 61 6d 20 |  ; othe|r param |
|00002c10| 62 6c 6f 63 6b 73 2e 0d | 30 38 36 35 3a 38 44 20 |blocks..|0865:8D |
|00002c20| 45 41 20 30 39 20 20 20 | 20 20 20 31 35 37 20 20 |EA 09   |   157  |
|00002c30| 20 20 20 20 20 20 20 20 | 20 73 74 61 20 20 20 73 |        | sta   s|
|00002c40| 52 65 66 4e 75 6d 0d 30 | 38 36 38 3a 20 20 20 20 |RefNum.0|868:    |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 31 35 38 20 2a 0d |        |  158 *.|
|00002c60| 30 38 36 38 3a 32 30 20 | 30 30 20 42 46 20 20 20 |0868:20 |00 BF   |
|00002c70| 20 20 20 31 35 39 20 20 | 20 20 20 20 20 20 20 20 |   159  |        |
|00002c80| 20 6a 73 72 20 20 20 4d | 4c 49 20 20 20 20 20 20 | jsr   M|LI      |
|00002c90| 20 20 20 20 20 3b 20 72 | 65 61 64 20 74 68 65 20 |     ; r|ead the |
|00002ca0| 66 69 72 73 74 20 62 6c | 6f 63 6b 0d 30 38 36 42 |first bl|ock.086B|
|00002cb0| 3a 43 41 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:CA     |       1|
|00002cc0| 36 30 20 20 20 20 20 20 | 20 20 20 20 20 64 62 20 |60      |     db |
|00002cd0| 20 20 20 52 65 61 64 43 | 6d 64 0d 30 38 36 43 3a |   ReadC|md.086C:|
|00002ce0| 44 46 20 30 39 20 20 20 | 20 20 20 20 20 20 31 36 |DF 09   |      16|
|00002cf0| 31 20 20 20 20 20 20 20 | 20 20 20 20 64 77 20 20 |1       |    dw  |
|00002d00| 20 20 52 65 61 64 50 61 | 72 6d 73 0d 30 38 36 45 |  ReadPa|rms.086E|
|00002d10| 3a 42 30 20 32 39 20 20 | 20 30 38 39 39 20 20 31 |:B0 29  | 0899  1|
|00002d20| 36 32 20 20 20 20 20 20 | 20 20 20 20 20 62 63 73 |62      |     bcs|
|00002d30| 20 20 20 4f 70 65 6e 44 | 6f 6e 65 0d 30 38 37 30 |   OpenD|one.0870|
|00002d40| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:       |       1|
|00002d50| 36 33 20 2a 0d 30 38 37 | 30 3a 41 44 20 31 34 20 |63 *.087|0:AD 14 |
|00002d60| 30 41 20 20 20 20 20 20 | 31 36 34 20 20 20 20 20 |0A      |164     |
|00002d70| 20 20 20 20 20 20 6c 64 | 61 20 20 20 62 75 66 66 |      ld|a   buff|
|00002d80| 65 72 2b 6f 45 6e 74 4c | 65 6e 20 3b 20 69 6e 69 |er+oEntL|en ; ini|
|00002d90| 74 20 27 65 6e 74 72 79 | 4c 65 6e 27 0d 30 38 37 |t 'entry|Len'.087|
|00002da0| 33 3a 38 44 20 44 37 20 | 30 39 20 20 20 20 20 20 |3:8D D7 |09      |
|00002db0| 31 36 35 20 20 20 20 20 | 20 20 20 20 20 20 73 74 |165     |      st|
|00002dc0| 61 20 20 20 65 6e 74 72 | 79 4c 65 6e 0d 30 38 37 |a   entr|yLen.087|
|00002dd0| 36 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |6:      |        |
|00002de0| 31 36 36 20 2a 0d 30 38 | 37 36 3a 41 39 20 46 35 |166 *.08|76:A9 F5|
|00002df0| 20 20 20 20 20 20 20 20 | 20 31 36 37 20 20 20 20 |        | 167    |
|00002e00| 20 20 20 20 20 20 20 6c | 64 61 20 20 20 23 62 75 |       l|da   #bu|
|00002e10| 66 66 65 72 2b 34 20 20 | 20 20 20 3b 20 69 6e 69 |ffer+4  |   ; ini|
|00002e20| 74 20 70 74 72 20 74 6f | 20 66 69 72 73 74 20 65 |t ptr to| first e|
|00002e30| 6e 74 72 79 0d 30 38 37 | 38 3a 38 35 20 38 32 20 |ntry.087|8:85 82 |
|00002e40| 20 20 20 20 20 20 20 20 | 31 36 38 20 20 20 20 20 |        |168     |
|00002e50| 20 20 20 20 20 20 73 74 | 61 20 20 20 65 6e 74 50 |      st|a   entP|
|00002e60| 74 72 0d 30 38 37 41 3a | 41 39 20 30 39 20 20 20 |tr.087A:|A9 09   |
|00002e70| 20 20 20 20 20 20 31 36 | 39 20 20 20 20 20 20 20 |      16|9       |
|00002e80| 20 20 20 20 6c 64 61 20 | 20 20 23 3c 62 75 66 66 |    lda |  #<buff|
|00002e90| 65 72 2b 34 0d 30 38 37 | 43 3a 38 35 20 38 33 20 |er+4.087|C:85 83 |
|00002ea0| 20 20 20 20 20 20 20 20 | 31 37 30 20 20 20 20 20 |        |170     |
|00002eb0| 20 20 20 20 20 20 73 74 | 61 20 20 20 65 6e 74 50 |      st|a   entP|
|00002ec0| 74 72 2b 31 0d 30 38 37 | 45 3a 20 20 20 20 20 20 |tr+1.087|E:      |
|00002ed0| 20 20 20 20 20 20 20 20 | 31 37 31 20 2a 0d 30 38 |        |171 *.08|
|00002ee0| 37 45 3a 41 44 20 31 35 | 20 30 41 20 20 20 20 20 |7E:AD 15| 0A     |
|00002ef0| 20 31 37 32 20 20 20 20 | 20 20 20 20 20 20 20 6c | 172    |       l|
|00002f00| 64 61 20 20 20 62 75 66 | 66 65 72 2b 6f 45 6e 74 |da   buf|fer+oEnt|
|00002f10| 62 6c 6b 20 3b 20 69 6e | 69 74 20 74 68 65 73 65 |blk ; in|it these|
|00002f20| 20 76 61 6c 75 65 73 20 | 62 61 73 65 64 20 6f 6e | values |based on|
|00002f30| 0d 30 38 38 31 3a 38 44 | 20 44 35 20 30 39 20 20 |.0881:8D| D5 09  |
|00002f40| 20 20 20 20 31 37 33 20 | 20 20 20 20 20 20 20 20 |    173 |        |
|00002f50| 20 20 73 74 61 20 20 20 | 54 68 69 73 42 45 6e 74 |  sta   |ThisBEnt|
|00002f60| 72 79 20 20 20 20 3b 20 | 76 61 6c 75 65 73 20 69 |ry    ; |values i|
|00002f70| 6e 20 74 68 65 20 64 69 | 72 20 68 65 61 64 65 72 |n the di|r header|
|00002f80| 0d 30 38 38 34 3a 38 44 | 20 44 38 20 30 39 20 20 |.0884:8D| D8 09  |
|00002f90| 20 20 20 20 31 37 34 20 | 20 20 20 20 20 20 20 20 |    174 |        |
|00002fa0| 20 20 73 74 61 20 20 20 | 65 6e 74 50 65 72 42 6c |  sta   |entPerBl|
|00002fb0| 6b 0d 0d 30 31 20 52 45 | 43 55 52 53 49 56 45 2e |k..01 RE|CURSIVE.|
|00002fc0| 53 20 20 20 20 20 50 72 | 6f 44 4f 53 20 43 61 74 |S     Pr|oDOS Cat|
|00002fd0| 61 6c 6f 67 20 52 6f 75 | 74 69 6e 65 20 20 20 20 |alog Rou|tine    |
|00002fe0| 20 20 20 20 20 20 20 20 | 20 20 32 37 2d 41 55 47 |        |  27-AUG|
|00002ff0| 2d 38 38 20 20 31 36 3a | 32 30 20 50 41 47 45 20 |-88  16:|20 PAGE |
|00003000| 35 0d 20 0d 30 38 38 37 | 3a 41 44 20 31 36 20 30 |5. .0887|:AD 16 0|
|00003010| 41 20 20 20 20 20 20 31 | 37 35 20 20 20 20 20 20 |A      1|75      |
|00003020| 20 20 20 20 20 6c 64 61 | 20 20 20 62 75 66 66 65 |     lda|   buffe|
|00003030| 72 2b 6f 45 6e 74 44 69 | 72 0d 30 38 38 41 3a 38 |r+oEntDi|r.088A:8|
|00003040| 44 20 44 33 20 30 39 20 | 20 20 20 20 20 31 37 36 |D D3 09 |     176|
|00003050| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 61 20 20 |        |   sta  |
|00003060| 20 54 68 69 73 45 6e 74 | 72 79 0d 30 38 38 44 3a | ThisEnt|ry.088D:|
|00003070| 41 44 20 31 37 20 30 41 | 20 20 20 20 20 20 31 37 |AD 17 0A|      17|
|00003080| 37 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 61 20 |7       |    lda |
|00003090| 20 20 62 75 66 66 65 72 | 2b 6f 45 6e 74 44 69 72 |  buffer|+oEntDir|
|000030a0| 2b 31 0d 30 38 39 30 3a | 38 44 20 44 34 20 30 39 |+1.0890:|8D D4 09|
|000030b0| 20 20 20 20 20 20 31 37 | 38 20 20 20 20 20 20 20 |      17|8       |
|000030c0| 20 20 20 20 73 74 61 20 | 20 20 54 68 69 73 45 6e |    sta |  ThisEn|
|000030d0| 74 72 79 2b 31 0d 30 38 | 39 33 3a 20 20 20 20 20 |try+1.08|93:     |
|000030e0| 20 20 20 20 20 20 20 20 | 20 31 37 39 20 2a 0d 30 |        | 179 *.0|
|000030f0| 38 39 33 3a 41 39 20 30 | 30 20 20 20 20 20 20 20 |893:A9 0|0       |
|00003100| 20 20 31 38 30 20 20 20 | 20 20 20 20 20 20 20 20 |  180   |        |
|00003110| 6c 64 61 20 20 20 23 30 | 20 20 20 20 20 20 20 20 |lda   #0|        |
|00003120| 20 20 20 20 3b 20 69 6e | 69 74 20 62 6c 6f 63 6b |    ; in|it block|
|00003130| 20 6f 66 66 73 65 74 20 | 69 6e 74 6f 20 64 69 72 | offset |into dir|
|00003140| 2e 0d 30 38 39 35 3a 38 | 44 20 44 36 20 30 39 20 |..0895:8|D D6 09 |
|00003150| 20 20 20 20 20 31 38 31 | 20 20 20 20 20 20 20 20 |     181|        |
|00003160| 20 20 20 73 74 61 20 20 | 20 54 68 69 73 42 6c 6f |   sta  | ThisBlo|
|00003170| 63 6b 0d 30 38 39 38 3a | 20 20 20 20 20 20 20 20 |ck.0898:|        |
|00003180| 20 20 20 20 20 20 31 38 | 32 20 2a 0d 30 38 39 38 |      18|2 *.0898|
|00003190| 3a 31 38 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:18     |       1|
|000031a0| 38 33 20 20 20 20 20 20 | 20 20 20 20 20 63 6c 63 |83      |     clc|
|000031b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000031c0| 20 3b 20 73 61 79 20 74 | 68 61 74 20 6f 70 65 6e | ; say t|hat open|
|000031d0| 20 77 61 73 20 4f 4b 0d | 30 38 39 39 3a 20 20 20 | was OK.|0899:   |
|000031e0| 20 20 20 20 20 20 20 20 | 20 20 20 31 38 34 20 2a |        |   184 *|
|000031f0| 0d 30 38 39 39 3a 20 20 | 20 20 20 20 20 20 30 38 |.0899:  |      08|
|00003200| 39 39 20 20 31 38 35 20 | 4f 70 65 6e 44 6f 6e 65 |99  185 |OpenDone|
|00003210| 20 20 65 71 75 20 20 20 | 2a 0d 30 38 39 39 3a 36 |  equ   |*.0899:6|
|00003220| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 31 38 36 |0       |     186|
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 72 74 73 0d 30 |        |   rts.0|
|00003240| 38 39 41 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |89A:    |        |
|00003250| 20 20 31 38 37 20 2a 0d | 30 38 39 41 3a 20 20 20 |  187 *.|089A:   |
|00003260| 20 20 20 20 20 20 20 20 | 20 20 20 31 38 38 20 2a |        |   188 *|
|00003270| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003280| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032a0| 2a 2a 2a 2a 2a 2a 0d 30 | 38 39 41 3a 20 20 20 20 |******.0|89A:    |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 31 38 39 20 2a 0d |        |  189 *.|
|000032c0| 30 38 39 41 3a 20 20 20 | 20 20 20 20 20 30 38 39 |089A:   |     089|
|000032d0| 41 20 20 31 39 30 20 56 | 69 73 69 74 46 69 6c 65 |A  190 V|isitFile|
|000032e0| 20 65 71 75 20 20 20 2a | 0d 30 38 39 41 3a 20 20 | equ   *|.089A:  |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 31 39 31 20 |        |    191 |
|00003300| 2a 0d 30 38 39 41 3a 20 | 20 20 20 20 20 20 20 20 |*.089A: |        |
|00003310| 20 20 20 20 20 31 39 32 | 20 2a 20 44 6f 20 77 68 |     192| * Do wh|
|00003320| 61 74 65 76 65 72 20 69 | 73 20 6e 65 63 65 73 73 |atever i|s necess|
|00003330| 61 72 79 20 77 68 65 6e | 20 77 65 20 65 6e 63 6f |ary when| we enco|
|00003340| 75 6e 74 65 72 20 61 0d | 30 38 39 41 3a 20 20 20 |unter a.|089A:   |
|00003350| 20 20 20 20 20 20 20 20 | 20 20 20 31 39 33 20 2a |        |   193 *|
|00003360| 20 66 69 6c 65 20 65 6e | 74 72 79 20 69 6e 20 74 | file en|try in t|
|00003370| 68 65 20 64 69 72 65 63 | 74 6f 72 79 2e 20 49 6e |he direc|tory. In|
|00003380| 20 74 68 69 73 20 63 61 | 73 65 2c 20 77 65 0d 30 | this ca|se, we.0|
|00003390| 38 39 41 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |89A:    |        |
|000033a0| 20 20 31 39 34 20 2a 20 | 70 72 69 6e 74 20 74 68 |  194 * |print th|
|000033b0| 65 20 6e 61 6d 65 20 6f | 66 20 74 68 65 20 66 69 |e name o|f the fi|
|000033c0| 6c 65 2e 0d 30 38 39 41 | 3a 20 20 20 20 20 20 20 |le..089A|:       |
|000033d0| 20 20 20 20 20 20 20 31 | 39 35 20 2a 0d 30 38 39 |       1|95 *.089|
|000033e0| 41 3a 32 30 20 41 37 20 | 30 39 20 20 20 20 20 20 |A:20 A7 |09      |
|000033f0| 31 39 36 20 20 20 20 20 | 20 20 20 20 20 20 6a 73 |196     |      js|
|00003400| 72 20 20 20 50 72 69 6e | 74 45 6e 74 72 79 0d 30 |r   Prin|tEntry.0|
|00003410| 38 39 44 3a 32 30 20 38 | 45 20 46 44 20 20 20 20 |89D:20 8|E FD    |
|00003420| 20 20 31 39 37 20 20 20 | 20 20 20 20 20 20 20 20 |  197   |        |
|00003430| 6a 73 72 20 20 20 63 72 | 6f 75 74 0d 30 38 41 30 |jsr   cr|out.08A0|
|00003440| 3a 36 30 20 20 20 20 20 | 20 20 20 20 20 20 20 31 |:60     |       1|
|00003450| 39 38 20 20 20 20 20 20 | 20 20 20 20 20 72 74 73 |98      |     rts|
|00003460| 0d 30 38 41 31 3a 20 20 | 20 20 20 20 20 20 20 20 |.08A1:  |        |
|00003470| 20 20 20 20 31 39 39 20 | 2a 0d 30 38 41 31 3a 20 |    199 |*.08A1: |
|00003480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 30 30 |        |     200|
|00003490| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000034a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000034c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 30 38 41 31 3a 20 20 |********|.08A1:  |
|000034d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 32 30 31 20 |        |    201 |
|000034e0| 2a 0d 30 38 41 31 3a 20 | 20 20 20 20 20 20 20 30 |*.08A1: |       0|
|000034f0| 38 41 31 20 20 32 30 32 | 20 56 69 73 69 74 44 69 |8A1  202| VisitDi|
|00003500| 72 20 20 65 71 75 20 20 | 20 2a 0d 30 38 41 31 3a |r  equ  | *.08A1:|
|00003510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 32 30 |        |      20|
|00003520| 33 20 2a 0d 30 38 41 31 | 3a 20 20 20 20 20 20 20 |3 *.08A1|:       |
|00003530| 20 20 20 20 20 20 20 32 | 30 34 20 2a 20 50 72 69 |       2|04 * Pri|
|00003540| 6e 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |nt the n|ame of t|
|00003550| 68 65 20 73 75 62 64 69 | 72 65 63 74 6f 72 79 20 |he subdi|rectory |
|00003560| 77 65 20 61 72 65 20 6c | 6f 6f 6b 69 6e 67 0d 30 |we are l|ooking.0|
|00003570| 38 41 31 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |8A1:    |        |
|00003580| 20 20 32 30 35 20 2a 20 | 61 74 2c 20 61 70 70 65 |  205 * |at, appe|
|00003590| 6e 64 69 6e 67 20 61 20 | 22 2f 22 20 74 6f 20 69 |nding a |"/" to i|
|000035a0| 74 20 28 74 6f 20 69 6e | 64 69 63 61 74 65 20 74 |t (to in|dicate t|
|000035b0| 68 61 74 20 69 74 27 73 | 0d 30 38 41 31 3a 20 20 |hat it's|.08A1:  |
|000035c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 32 30 36 20 |        |    206 |
|000035d0| 2a 20 61 20 64 69 72 65 | 63 74 6f 72 79 29 2c 20 |* a dire|ctory), |
|000035e0| 61 6e 64 20 74 68 65 6e | 20 63 61 6c 6c 69 6e 67 |and then| calling|
|000035f0| 20 52 65 63 75 72 73 44 | 69 72 20 74 6f 20 6c 69 | RecursD|ir to li|
|00003600| 73 74 0d 30 38 41 31 3a | 20 20 20 20 20 20 20 20 |st.08A1:|        |
|00003610| 20 20 20 20 20 20 32 30 | 37 20 2a 20 65 76 65 72 |      20|7 * ever|
|00003620| 79 74 68 69 6e 67 20 69 | 6e 20 74 68 61 74 20 64 |ything i|n that d|
|00003630| 69 72 65 63 74 6f 72 79 | 2e 0d 30 38 41 31 3a 20 |irectory|..08A1: |
|00003640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 30 38 |        |     208|
|00003650| 20 2a 0d 30 38 41 31 3a | 32 30 20 41 37 20 30 39 | *.08A1:|20 A7 09|
|00003660| 20 20 20 20 20 20 32 30 | 39 20 20 20 20 20 20 20 |      20|9       |
|00003670| 20 20 20 20 6a 73 72 20 | 20 20 50 72 69 6e 74 45 |    jsr |  PrintE|
|00003680| 6e 74 72 79 20 20 20 20 | 3b 20 70 72 69 6e 74 20 |ntry    |; print |
|00003690| 64 69 72 27 73 20 6e 61 | 6d 65 0d 30 38 41 34 3a |dir's na|me.08A4:|
|000036a0| 41 39 20 41 46 20 20 20 | 20 20 20 20 20 20 32 31 |A9 AF   |      21|
|000036b0| 30 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 61 20 |0       |    lda |
|000036c0| 20 20 23 27 2f 27 7c 24 | 38 30 20 20 20 20 20 20 |  #'/'|$|80      |
|000036d0| 3b 20 74 61 63 6b 20 6f | 6e 20 2f 20 61 74 20 65 |; tack o|n / at e|
|000036e0| 6e 64 0d 30 38 41 36 3a | 32 30 20 45 44 20 46 44 |nd.08A6:|20 ED FD|
|000036f0| 20 20 20 20 20 20 32 31 | 31 20 20 20 20 20 20 20 |      21|1       |
|00003700| 20 20 20 20 6a 73 72 20 | 20 20 63 6f 75 74 0d 30 |    jsr |  cout.0|
|00003710| 38 41 39 3a 32 30 20 38 | 45 20 46 44 20 20 20 20 |8A9:20 8|E FD    |
|00003720| 20 20 32 31 32 20 20 20 | 20 20 20 20 20 20 20 20 |  212   |        |
|00003730| 6a 73 72 20 20 20 63 72 | 6f 75 74 0d 30 38 41 43 |jsr   cr|out.08AC|
|00003740| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:       |       2|
|00003750| 31 33 20 2a 0d 30 38 41 | 43 3a 32 30 20 42 30 20 |13 *.08A|C:20 B0 |
|00003760| 30 38 20 20 20 20 20 20 | 32 31 34 20 20 20 20 20 |08      |214     |
|00003770| 20 20 20 20 20 20 6a 73 | 72 20 20 20 52 65 63 75 |      js|r   Recu|
|00003780| 72 73 44 69 72 20 20 20 | 20 20 3b 20 65 6e 75 6d |rsDir   |  ; enum|
|00003790| 65 72 61 74 65 20 61 6c | 6c 20 65 6e 74 72 69 65 |erate al|l entrie|
|000037a0| 73 20 69 6e 20 73 75 62 | 2d 64 69 72 2e 0d 30 38 |s in sub|-dir..08|
|000037b0| 41 46 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |AF:     |        |
|000037c0| 20 32 31 35 20 2a 0d 30 | 38 41 46 3a 36 30 20 20 | 215 *.0|8AF:60  |
|000037d0| 20 20 20 20 20 20 20 20 | 20 20 32 31 36 20 20 20 |        |  216   |
|000037e0| 20 20 20 20 20 20 20 20 | 72 74 73 0d 30 38 42 30 |        |rts.08B0|
|000037f0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:       |       2|
|00003800| 31 37 20 2a 0d 30 38 42 | 30 3a 20 20 20 20 20 20 |17 *.08B|0:      |
|00003810| 20 20 20 20 20 20 20 20 | 32 31 38 20 2a 2a 2a 2a |        |218 ****|
|00003820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003850| 2a 2a 2a 0d 30 38 42 30 | 3a 20 20 20 20 20 20 20 |***.08B0|:       |
|00003860| 20 20 20 20 20 20 20 32 | 31 39 20 2a 0d 30 38 42 |       2|19 *.08B|
|00003870| 30 3a 20 20 20 20 20 20 | 20 20 30 38 42 30 20 20 |0:      |  08B0  |
|00003880| 32 32 30 20 52 65 63 75 | 72 73 44 69 72 20 65 71 |220 Recu|rsDir eq|
|00003890| 75 20 20 20 2a 0d 30 38 | 42 30 3a 20 20 20 20 20 |u   *.08|B0:     |
|000038a0| 20 20 20 20 20 20 20 20 | 20 32 32 31 20 2a 0d 30 |        | 221 *.0|
|000038b0| 38 42 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |8B0:    |        |
|000038c0| 20 20 32 32 32 20 2a 20 | 54 68 69 73 20 72 6f 75 |  222 * |This rou|
|000038d0| 74 69 6e 65 20 63 61 6c | 6c 73 20 52 65 61 64 44 |tine cal|ls ReadD|
|000038e0| 69 72 20 72 65 63 75 72 | 73 69 76 65 6c 79 2e 20 |ir recur|sively. |
|000038f0| 49 74 0d 30 38 42 30 3a | 20 20 20 20 20 20 20 20 |It.08B0:|        |
|00003900| 20 20 20 20 20 20 32 32 | 33 20 2a 0d 30 38 42 30 |      22|3 *.08B0|
|00003910| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:       |       2|
|00003920| 32 34 20 2a 20 2d 20 69 | 6e 63 72 65 6d 65 6e 74 |24 * - i|ncrement|
|00003930| 73 20 74 68 65 20 72 65 | 63 75 72 73 69 6f 6e 20 |s the re|cursion |
|00003940| 64 65 70 74 68 20 63 6f | 75 6e 74 65 72 2c 0d 30 |depth co|unter,.0|
|00003950| 38 42 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |8B0:    |        |
|00003960| 20 20 32 32 35 20 2a 20 | 2d 20 73 61 76 65 73 20 |  225 * |- saves |
|00003970| 63 65 72 74 61 69 6e 20 | 76 61 72 69 61 62 6c 65 |certain |variable|
|00003980| 73 20 6f 6e 74 6f 20 74 | 68 65 20 73 74 61 63 6b |s onto t|he stack|
|00003990| 0d 30 38 42 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.08B0:  |        |
|000039a0| 20 20 20 20 32 32 36 20 | 2a 20 2d 20 63 6c 6f 73 |    226 |* - clos|
|000039b0| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |es the c|urrent d|
|000039c0| 69 72 65 63 74 6f 72 79 | 0d 30 38 42 30 3a 20 20 |irectory|.08B0:  |
|000039d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 32 32 37 20 |        |    227 |
|000039e0| 2a 20 2d 20 63 72 65 61 | 74 65 73 20 74 68 65 20 |* - crea|tes the |
|000039f0| 6e 61 6d 65 20 6f 66 20 | 74 68 65 20 6e 65 77 20 |name of |the new |
|00003a00| 64 69 72 65 63 74 6f 72 | 79 0d 30 38 42 30 3a 20 |director|y.08B0: |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 32 38 |        |     228|
|00003a20| 20 2a 20 2d 20 63 61 6c | 6c 73 20 52 65 61 64 44 | * - cal|ls ReadD|
|00003a30| 69 72 20 28 72 65 63 75 | 72 73 69 76 65 6c 79 29 |ir (recu|rsively)|
|00003a40| 0d 30 38 42 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.08B0:  |        |
|00003a50| 20 20 20 20 32 32 39 20 | 2a 20 2d 20 72 65 73 74 |    229 |* - rest|
|00003a60| 6f 72 65 73 20 74 68 65 | 20 76 61 72 69 61 62 6c |ores the| variabl|
|00003a70| 65 73 20 66 72 6f 6d 20 | 74 68 65 20 73 74 61 63 |es from |the stac|
|00003a80| 6b 0d 30 38 42 30 3a 20 | 20 20 20 20 20 20 20 20 |k.08B0: |        |
|00003a90| 20 20 20 20 20 32 33 30 | 20 2a 20 2d 20 72 65 73 |     230| * - res|
|00003aa0| 74 6f 72 65 73 20 64 69 | 72 65 63 74 6f 72 79 20 |tores di|rectory |
|00003ab0| 6e 61 6d 65 20 74 6f 20 | 6f 72 69 67 69 6e 61 6c |name to |original|
|00003ac0| 20 76 61 6c 75 65 0d 30 | 38 42 30 3a 20 20 20 20 | value.0|8B0:    |
|00003ad0| 20 20 20 20 20 20 20 20 | 20 20 32 33 31 20 2a 20 |        |  231 * |
|00003ae0| 2d 20 72 65 2d 6f 70 65 | 6e 73 20 74 68 65 20 6f |- re-ope|ns the o|
|00003af0| 6c 64 20 64 69 72 65 63 | 74 6f 72 79 0d 30 38 42 |ld direc|tory.08B|
|00003b00| 30 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0:      |        |
|00003b10| 32 33 32 20 2a 20 2d 20 | 6d 6f 76 65 73 20 74 6f |232 * - |moves to|
|00003b20| 20 6f 75 72 20 6c 61 73 | 74 20 70 6f 73 69 74 69 | our las|t positi|
|00003b30| 6f 6e 20 77 69 74 68 69 | 6e 20 69 74 0d 0d 30 31 |on withi|n it..01|
|00003b40| 20 52 45 43 55 52 53 49 | 56 45 2e 53 20 20 20 20 | RECURSI|VE.S    |
|00003b50| 20 50 72 6f 44 4f 53 20 | 43 61 74 61 6c 6f 67 20 | ProDOS |Catalog |
|00003b60| 52 6f 75 74 69 6e 65 20 | 20 20 20 20 20 20 20 20 |Routine |        |
|00003b70| 20 20 20 20 20 32 37 2d | 41 55 47 2d 38 38 20 20 |     27-|AUG-88  |
|00003b80| 31 36 3a 32 30 20 50 41 | 47 45 20 36 0d 20 0d 30 |16:20 PA|GE 6. .0|
|00003b90| 38 42 30 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |8B0:    |        |
|00003ba0| 20 20 32 33 33 20 2a 20 | 2d 20 64 65 63 72 65 6d |  233 * |- decrem|
|00003bb0| 65 6e 74 73 20 74 68 65 | 20 72 65 63 75 72 73 69 |ents the| recursi|
|00003bc0| 6f 6e 20 64 65 70 74 68 | 20 63 6f 75 6e 74 65 72 |on depth| counter|
|00003bd0| 0d 30 38 42 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.08B0:  |        |
|00003be0| 20 20 20 20 32 33 34 20 | 2a 0d 30 38 42 30 3a 45 |    234 |*.08B0:E|
|00003bf0| 45 20 44 32 20 30 39 20 | 20 20 20 20 20 32 33 35 |E D2 09 |     235|
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 69 6e 63 20 20 |        |   inc  |
|00003c10| 20 44 65 70 74 68 20 20 | 20 20 20 20 20 20 20 3b | Depth  |       ;|
|00003c20| 20 62 75 6d 70 20 74 68 | 69 73 20 66 6f 72 20 72 | bump th|is for r|
|00003c30| 65 63 75 72 73 69 76 65 | 20 63 61 6c 6c 0d 30 38 |ecursive| call.08|
|00003c40| 42 33 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |B3:     |        |
|00003c50| 20 32 33 36 20 2a 0d 30 | 38 42 33 3a 20 20 20 20 | 236 *.0|8B3:    |
|00003c60| 20 20 20 20 20 20 20 20 | 20 20 32 33 37 20 2a 20 |        |  237 * |
|00003c70| 53 61 76 65 20 65 76 65 | 72 79 74 68 69 6e 67 20 |Save eve|rything |
|00003c80| 77 65 20 63 61 6e 20 74 | 68 69 6e 6b 20 6f 66 20 |we can t|hink of |
|00003c90| 28 74 68 65 20 77 6f 6d | 65 6e 2c 0d 30 38 42 33 |(the wom|en,.08B3|
|00003ca0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:       |       2|
|00003cb0| 33 38 20 2a 20 74 68 65 | 20 63 68 69 6c 64 72 65 |38 * the| childre|
|00003cc0| 6e 2c 20 74 68 65 20 62 | 65 65 72 2c 20 65 74 63 |n, the b|eer, etc|
|00003cd0| 2e 29 2e 0d 30 38 42 33 | 3a 20 20 20 20 20 20 20 |.)..08B3|:       |
|00003ce0| 20 20 20 20 20 20 20 32 | 33 39 20 2a 0d 30 38 42 |       2|39 *.08B|
|00003cf0| 33 3a 41 35 20 38 32 20 | 20 20 20 20 20 20 20 20 |3:A5 82 |        |
|00003d00| 32 34 30 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 |240     |      ld|
|00003d10| 61 20 20 20 65 6e 74 50 | 74 72 0d 30 38 42 35 3a |a   entP|tr.08B5:|
|00003d20| 34 38 20 20 20 20 20 20 | 20 20 20 20 20 20 32 34 |48      |      24|
|00003d30| 31 20 20 20 20 20 20 20 | 20 20 20 20 70 68 61 0d |1       |    pha.|
|00003d40| 30 38 42 36 3a 41 35 20 | 38 33 20 20 20 20 20 20 |08B6:A5 |83      |
|00003d50| 20 20 20 32 34 32 20 20 | 20 20 20 20 20 20 20 20 |   242  |        |
|00003d60| 20 6c 64 61 20 20 20 65 | 6e 74 50 74 72 2b 31 0d | lda   e|ntPtr+1.|
|00003d70| 30 38 42 38 3a 34 38 20 | 20 20 20 20 20 20 20 20 |08B8:48 |        |
|00003d80| 20 20 20 32 34 33 20 20 | 20 20 20 20 20 20 20 20 |   243  |        |
|00003d90| 20 70 68 61 0d 30 38 42 | 39 3a 41 44 20 44 33 20 | pha.08B|9:AD D3 |
|00003da0| 30 39 20 20 20 20 20 20 | 32 34 34 20 20 20 20 20 |09      |244     |
|00003db0| 20 20 20 20 20 20 6c 64 | 61 20 20 20 54 68 69 73 |      ld|a   This|
|00003dc0| 45 6e 74 72 79 0d 30 38 | 42 43 3a 34 38 20 20 20 |Entry.08|BC:48   |
|00003dd0| 20 20 20 20 20 20 20 20 | 20 32 34 35 20 20 20 20 |        | 245    |
|00003de0| 20 20 20 20 20 20 20 70 | 68 61 0d 30 38 42 44 3a |       p|ha.08BD:|
|00003df0| 41 44 20 44 34 20 30 39 | 20 20 20 20 20 20 32 34 |AD D4 09|      24|
|00003e00| 36 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 61 20 |6       |    lda |
|00003e10| 20 20 54 68 69 73 45 6e | 74 72 79 2b 31 0d 30 38 |  ThisEn|try+1.08|
|00003e20| 43 30 3a 34 38 20 20 20 | 20 20 20 20 20 20 20 20 |C0:48   |        |
|00003e30| 20 32 34 37 20 20 20 20 | 20 20 20 20 20 20 20 70 | 247    |       p|
|00003e40| 68 61 0d 30 38 43 31 3a | 41 44 20 44 35 20 30 39 |ha.08C1:|AD D5 09|
|00003e50| 20 20 20 20 20 20 32 34 | 38 20 20 20 20 20 20 20 |      24|8       |
|00003e60| 20 20 20 20 6c 64 61 20 | 20 20 54 68 69 73 42 45 |    lda |  ThisBE|
|00003e70| 6e 74 72 79 0d 30 38 43 | 34 3a 34 38 20 20 20 20 |ntry.08C|4:48    |
|00003e80| 20 20 20 20 20 20 20 20 | 32 34 39 20 20 20 20 20 |        |249     |
|00003e90| 20 20 20 20 20 20 70 68 | 61 0d 30 38 43 35 3a 41 |      ph|a.08C5:A|
|00003ea0| 44 20 44 36 20 30 39 20 | 20 20 20 20 20 32 35 30 |D D6 09 |     250|
|00003eb0| 20 20 20 20 20 20 20 20 | 20 20 20 6c 64 61 20 20 |        |   lda  |
|00003ec0| 20 54 68 69 73 42 6c 6f | 63 6b 0d 30 38 43 38 3a | ThisBlo|ck.08C8:|
|00003ed0| 34 38 20 20 20 20 20 20 | 20 20 20 20 20 20 32 35 |48      |      25|
|00003ee0| 31 20 20 20 20 20 20 20 | 20 20 20 20 70 68 61 0d |1       |    pha.|
|00003ef0| 30 38 43 39 3a 41 44 20 | 44 37 20 30 39 20 20 20 |08C9:AD |D7 09   |
|00003f00| 20 20 20 32 35 32 20 20 | 20 20 20 20 20 20 20 20 |   252  |        |
|00003f10| 20 6c 64 61 20 20 20 65 | 6e 74 72 79 4c 65 6e 0d | lda   e|ntryLen.|
|00003f20| 30 38 43 43 3a 34 38 20 | 20 20 20 20 20 20 20 20 |08CC:48 |        |
|00003f30| 20 20 20 32 35 33 20 20 | 20 20 20 20 20 20 20 20 |   253  |        |
|00003f40| 20 70 68 61 0d 30 38 43 | 44 3a 41 44 20 44 38 20 | pha.08C|D:AD D8 |
|00003f50| 30 39 20 20 20 20 20 20 | 32 35 34 20 20 20 20 20 |09      |254     |
|00003f60| 20 20 20 20 20 20 6c 64 | 61 20 20 20 65 6e 74 50 |      ld|a   entP|
|00003f70| 65 72 62 6c 6b 0d 30 38 | 44 30 3a 34 38 20 20 20 |erblk.08|D0:48   |
|00003f80| 20 20 20 20 20 20 20 20 | 20 32 35 35 20 20 20 20 |        | 255    |
|00003f90| 20 20 20 20 20 20 20 70 | 68 61 0d 30 38 44 31 3a |       p|ha.08D1:|
|00003fa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 32 35 |        |      25|
|00003fb0| 36 20 2a 0d 30 38 44 31 | 3a 20 20 20 20 20 20 20 |6 *.08D1|:       |
|00003fc0| 20 20 20 20 20 20 20 32 | 35 37 20 2a 20 43 6c 6f |       2|57 * Clo|
|00003fd0| 73 65 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 64 |se the c|urrent d|
|00003fe0| 69 72 65 63 74 6f 72 79 | 2c 20 61 73 20 52 65 61 |irectory|, as Rea|
|00003ff0| 64 44 69 72 20 77 69 6c | 6c 0d 30 38 44 31 3a 20 |dDir wil|l.08D1: |
|00004000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 35 38 |        |     258|
|00004010| 20 2a 20 6f 70 65 6e 20 | 66 69 6c 65 73 20 6f 66 | * open |files of|
|00004020| 20 69 74 73 20 6f 77 6e | 2c 20 61 6e 64 20 77 65 | its own|, and we|
|00004030| 20 64 6f 6e 27 74 20 77 | 61 6e 74 20 74 6f 20 0d | don't w|ant to .|
|00004040| 30 38 44 31 3a 20 20 20 | 20 20 20 20 20 20 20 20 |08D1:   |        |
|00004050| 20 20 20 32 35 39 20 2a | 20 68 61 76 65 20 61 20 |   259 *| have a |
|00004060| 62 75 6e 63 68 20 6f 66 | 20 6f 70 65 6e 20 66 69 |bunch of| open fi|
|00004070| 6c 65 73 20 6c 79 69 6e | 67 20 61 72 6f 75 6e 64 |les lyin|g around|
|00004080| 2e 0d 30 38 44 31 3a 20 | 20 20 20 20 20 20 20 20 |..08D1: |        |
|00004090| 20 20 20 20 20 32 36 30 | 20 2a 0d 30 38 44 31 3a |     260| *.08D1:|
|000040a0| 32 30 20 30 30 20 42 46 | 20 20 20 20 20 20 32 36 |20 00 BF|      26|
|000040b0| 31 20 20 20 20 20 20 20 | 20 20 20 20 6a 73 72 20 |1       |    jsr |
|000040c0| 20 20 4d 4c 49 0d 30 38 | 44 34 3a 43 43 20 20 20 |  MLI.08|D4:CC   |
|000040d0| 20 20 20 20 20 20 20 20 | 20 32 36 32 20 20 20 20 |        | 262    |
|000040e0| 20 20 20 20 20 20 20 64 | 62 20 20 20 20 43 6c 6f |       d|b    Clo|
|000040f0| 73 65 43 6d 64 0d 30 38 | 44 35 3a 45 37 20 30 39 |seCmd.08|D5:E7 09|
|00004100| 20 20 20 20 20 20 20 20 | 20 32 36 33 20 20 20 20 |        | 263    |
|00004110| 20 20 20 20 20 20 20 64 | 77 20 20 20 20 43 6c 6f |       d|w    Clo|
|00004120| 73 65 50 61 72 6d 73 0d | 30 38 44 37 3a 20 20 20 |seParms.|08D7:   |
|00004130| 20 20 20 20 20 20 20 20 | 20 20 20 32 36 34 20 2a |        |   264 *|
|00004140| 0d 30 38 44 37 3a 32 30 | 20 32 30 20 30 39 20 20 |.08D7:20| 20 09  |
|00004150| 20 20 20 20 32 36 35 20 | 20 20 20 20 20 20 20 20 |    265 |        |
|00004160| 20 20 6a 73 72 20 20 20 | 45 78 74 65 6e 64 4e 61 |  jsr   |ExtendNa|
|00004170| 6d 65 20 20 20 20 3b 20 | 6d 61 6b 65 20 6e 65 77 |me    ; |make new|
|00004180| 20 64 69 72 20 6e 61 6d | 65 0d 30 38 44 41 3a 20 | dir nam|e.08DA: |
|00004190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 36 36 |        |     266|
|000041a0| 20 2a 0d 30 38 44 41 3a | 32 30 20 32 39 20 30 38 | *.08DA:|20 29 08|
|000041b0| 20 20 20 20 20 20 32 36 | 37 20 20 20 20 20 20 20 |      26|7       |
|000041c0| 20 20 20 20 6a 73 72 20 | 20 20 52 65 61 64 44 69 |    jsr |  ReadDi|
|000041d0| 72 31 20 20 20 20 20 20 | 3b 20 65 6e 75 6d 65 72 |r1      |; enumer|
|000041e0| 61 74 65 20 74 68 65 20 | 73 75 62 64 69 72 65 63 |ate the |subdirec|
|000041f0| 74 6f 72 79 0d 30 38 44 | 44 3a 20 20 20 20 20 20 |tory.08D|D:      |
|00004200| 20 20 20 20 20 20 20 20 | 32 36 38 20 2a 0d 30 38 |        |268 *.08|
|00004210| 44 44 3a 32 30 20 35 36 | 20 30 39 20 20 20 20 20 |DD:20 56| 09     |
|00004220| 20 32 36 39 20 20 20 20 | 20 20 20 20 20 20 20 6a | 269    |       j|
|00004230| 73 72 20 20 20 43 68 6f | 70 4e 61 6d 65 20 20 20 |sr   Cho|pName   |
|00004240| 20 20 20 3b 20 72 65 73 | 74 6f 72 65 20 6f 6c 64 |   ; res|tore old|
|00004250| 20 64 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 0d | directo|ry name.|
|00004260| 30 38 45 30 3a 20 20 20 | 20 20 20 20 20 20 20 20 |08E0:   |        |
|00004270| 20 20 20 32 37 30 20 2a | 0d 30 38 45 30 3a 32 30 |   270 *|.08E0:20|
|00004280| 20 35 34 20 30 38 20 20 | 20 20 20 20 32 37 31 20 | 54 08  |    271 |
|00004290| 20 20 20 20 20 20 20 20 | 20 20 6a 73 72 20 20 20 |        |  jsr   |
|000042a0| 4f 70 65 6e 44 69 72 20 | 20 20 20 20 20 20 3b 20 |OpenDir |      ; |
|000042b0| 72 65 2d 6f 70 65 6e 20 | 69 74 20 62 61 63 6b 20 |re-open |it back |
|000042c0| 75 70 0d 30 38 45 33 3a | 20 20 20 20 20 20 20 20 |up.08E3:|        |
|000042d0| 20 20 20 20 20 20 32 37 | 32 20 2a 0d 30 38 45 33 |      27|2 *.08E3|
|000042e0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:       |       2|
|000042f0| 37 33 20 2a 20 52 65 73 | 74 6f 72 65 20 65 76 65 |73 * Res|tore eve|
|00004300| 72 79 74 68 69 6e 67 20 | 74 68 61 74 20 77 65 20 |rything |that we |
|00004310| 73 61 76 65 64 20 62 65 | 66 6f 72 65 0d 30 38 45 |saved be|fore.08E|
|00004320| 33 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3:      |        |
|00004330| 32 37 34 20 2a 0d 30 38 | 45 33 3a 36 38 20 20 20 |274 *.08|E3:68   |
|00004340| 20 20 20 20 20 20 20 20 | 20 32 37 35 20 20 20 20 |        | 275    |
|00004350| 20 20 20 20 20 20 20 70 | 6c 61 0d 30 38 45 34 3a |       p|la.08E4:|
|00004360| 38 44 20 44 38 20 30 39 | 20 20 20 20 20 20 32 37 |8D D8 09|      27|
|00004370| 36 20 20 20 20 20 20 20 | 20 20 20 20 73 74 61 20 |6       |    sta |
|00004380| 20 20 65 6e 74 50 65 72 | 42 6c 6b 0d 30 38 45 37 |  entPer|Blk.08E7|
|00004390| 3a 36 38 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:68     |       2|
|000043a0| 37 37 20 20 20 20 20 20 | 20 20 20 20 20 70 6c 61 |77      |     pla|
|000043b0| 0d 30 38 45 38 3a 38 44 | 20 44 37 20 30 39 20 20 |.08E8:8D| D7 09  |
|000043c0| 20 20 20 20 32 37 38 20 | 20 20 20 20 20 20 20 20 |    278 |        |
|000043d0| 20 20 73 74 61 20 20 20 | 65 6e 74 72 79 4c 65 6e |  sta   |entryLen|
|000043e0| 0d 30 38 45 42 3a 36 38 | 20 20 20 20 20 20 20 20 |.08EB:68|        |
|000043f0| 20 20 20 20 32 37 39 20 | 20 20 20 20 20 20 20 20 |    279 |        |
|00004400| 20 20 70 6c 61 0d 30 38 | 45 43 3a 38 44 20 44 36 |  pla.08|EC:8D D6|
|00004410| 20 30 39 20 20 20 20 20 | 20 32 38 30 20 20 20 20 | 09     | 280    |
|00004420| 20 20 20 20 20 20 20 73 | 74 61 20 20 20 54 68 69 |       s|ta   Thi|
|00004430| 73 62 6c 6f 63 6b 0d 30 | 38 45 46 3a 36 38 20 20 |sblock.0|8EF:68  |
|00004440| 20 20 20 20 20 20 20 20 | 20 20 32 38 31 20 20 20 |        |  281   |
|00004450| 20 20 20 20 20 20 20 20 | 70 6c 61 0d 30 38 46 30 |        |pla.08F0|
|00004460| 3a 38 44 20 44 35 20 30 | 39 20 20 20 20 20 20 32 |:8D D5 0|9      2|
|00004470| 38 32 20 20 20 20 20 20 | 20 20 20 20 20 73 74 61 |82      |     sta|
|00004480| 20 20 20 54 68 69 73 42 | 45 6e 74 72 79 0d 30 38 |   ThisB|Entry.08|
|00004490| 46 33 3a 36 38 20 20 20 | 20 20 20 20 20 20 20 20 |F3:68   |        |
|000044a0| 20 32 38 33 20 20 20 20 | 20 20 20 20 20 20 20 70 | 283    |       p|
|000044b0| 6c 61 0d 30 38 46 34 3a | 38 44 20 44 34 20 30 39 |la.08F4:|8D D4 09|
|000044c0| 20 20 20 20 20 20 32 38 | 34 20 20 20 20 20 20 20 |      28|4       |
|000044d0| 20 20 20 20 73 74 61 20 | 20 20 54 68 69 73 45 6e |    sta |  ThisEn|
|000044e0| 74 72 79 2b 31 0d 30 38 | 46 37 3a 36 38 20 20 20 |try+1.08|F7:68   |
|000044f0| 20 20 20 20 20 20 20 20 | 20 32 38 35 20 20 20 20 |        | 285    |
|00004500| 20 20 20 20 20 20 20 70 | 6c 61 0d 30 38 46 38 3a |       p|la.08F8:|
|00004510| 38 44 20 44 33 20 30 39 | 20 20 20 20 20 20 32 38 |8D D3 09|      28|
|00004520| 36 20 20 20 20 20 20 20 | 20 20 20 20 73 74 61 20 |6       |    sta |
|00004530| 20 20 54 68 69 73 45 6e | 74 72 79 0d 30 38 46 42 |  ThisEn|try.08FB|
|00004540| 3a 36 38 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |:68     |       2|
|00004550| 38 37 20 20 20 20 20 20 | 20 20 20 20 20 70 6c 61 |87      |     pla|
|00004560| 0d 30 38 46 43 3a 38 35 | 20 38 33 20 20 20 20 20 |.08FC:85| 83     |
|00004570| 20 20 20 20 32 38 38 20 | 20 20 20 20 20 20 20 20 |    288 |        |
|00004580| 20 20 73 74 61 20 20 20 | 65 6e 74 50 74 72 2b 31 |  sta   |entPtr+1|
|00004590| 0d 30 38 46 45 3a 36 38 | 20 20 20 20 20 20 20 20 |.08FE:68|        |
|000045a0| 20 20 20 20 32 38 39 20 | 20 20 20 20 20 20 20 20 |    289 |        |
|000045b0| 20 20 70 6c 61 0d 30 38 | 46 46 3a 38 35 20 38 32 |  pla.08|FF:85 82|
|000045c0| 20 20 20 20 20 20 20 20 | 20 32 39 30 20 20 20 20 |        | 290    |
|000045d0| 20 20 20 20 20 20 20 73 | 74 61 20 20 20 65 6e 74 |       s|ta   ent|
|000045e0| 50 74 72 0d 0d 30 31 20 | 52 45 43 55 52 53 49 56 |Ptr..01 |RECURSIV|
|000045f0| 45 2e 53 20 20 20 20 20 | 50 72 6f 44 4f 53 20 43 |E.S     |ProDOS C|
|00004600| 61 74 61 6c 6f 67 20 52 | 6f 75 74 69 6e 65 20 20 |atalog R|outine  |
|00004610| 20 20 20 20 20 20 20 20 | 20 20 20 20 32 37 2d 41 |        |    27-A|
|00004620| 55 47 2d 38 38 20 20 31 | 36 3a 32 30 20 50 41 47 |UG-88  1|6:20 PAG|
|00004630| 45 20 37 0d 20 0d 30 39 | 30 31 3a 20 20 20 20 20 |E 7. .09|01:     |
|00004640| 20 20 20 20 20 20 20 20 | 20 32 39 31 20 2a 0d 30 |        | 291 *.0|
|00004650| 39 30 31 3a 41 44 20 44 | 36 20 30 39 20 20 20 20 |901:AD D|6 09    |
|00004660| 20 20 32 39 32 20 20 20 | 20 20 20 20 20 20 20 20 |  292   |        |
|00004670| 6c 64 61 20 20 20 54 68 | 69 73 42 6c 6f 63 6b 20 |lda   Th|isBlock |
|00004680| 20 20 20 20 3b 20 72 65 | 73 65 74 20 6c 61 73 74 |    ; re|set last|
|00004690| 20 70 6f 73 69 74 69 6f | 6e 20 69 6e 20 64 69 72 | positio|n in dir|
|000046a0| 0d 30 39 30 34 3a 30 41 | 20 20 20 20 20 20 20 20 |.0904:0A|        |
|000046b0| 20 20 20 20 32 39 33 20 | 20 20 20 20 20 20 20 20 |    293 |        |
|000046c0| 20 20 61 73 6c 20 20 20 | 61 20 20 20 20 20 20 20 |  asl   |a       |
|000046d0| 20 20 20 20 20 20 3b 20 | 3d 20 74 6f 20 62 6c 6f |      ; |= to blo|
|000046e0| 63 6b 20 23 20 74 69 6d | 65 73 20 35 31 32 0d 30 |ck # tim|es 512.0|
|000046f0| 39 30 35 3a 38 44 20 45 | 43 20 30 39 20 20 20 20 |905:8D E|C 09    |
|00004700| 20 20 32 39 34 20 20 20 | 20 20 20 20 20 20 20 20 |  294   |        |
|00004710| 73 74 61 20 20 20 4d 61 | 72 6b 2b 31 0d 30 39 30 |sta   Ma|rk+1.090|
|00004720| 38 3a 41 39 20 30 30 20 | 20 20 20 20 20 20 20 20 |8:A9 00 |        |
|00004730| 32 39 35 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 |295     |      ld|
|00004740| 61 20 20 20 23 30 0d 30 | 39 30 41 3a 38 44 20 45 |a   #0.0|90A:8D E|
|00004750| 42 20 30 39 20 20 20 20 | 20 20 32 39 36 20 20 20 |B 09    |  296   |
|00004760| 20 20 20 20 20 20 20 20 | 73 74 61 20 20 20 4d 61 |        |sta   Ma|
|00004770| 72 6b 0d 30 39 30 44 3a | 38 44 20 45 44 20 30 39 |rk.090D:|8D ED 09|
|00004780| 20 20 20 20 20 20 32 39 | 37 20 20 20 20 20 20 20 |      29|7       |
|00004790| 20 20 20 20 73 74 61 20 | 20 20 4d 61 72 6b 2b 32 |    sta |  Mark+2|
|000047a0| 0d 30 39 31 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0910:  |        |
|000047b0| 20 20 20 20 32 39 38 20 | 2a 0d 30 39 31 30 3a 32 |    298 |*.0910:2|
|000047c0| 30 20 30 30 20 42 46 20 | 20 20 20 20 20 32 39 39 |0 00 BF |     299|
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 20 6a 73 72 20 20 |        |   jsr  |
|000047e0| 20 4d 4c 49 20 20 20 20 | 20 20 20 20 20 20 20 3b | MLI    |       ;|
|000047f0| 20 72 65 73 65 74 20 74 | 68 65 20 66 69 6c 65 20 | reset t|he file |
|00004800| 6d 61 72 6b 65 72 0d 30 | 39 31 33 3a 43 45 20 20 |marker.0|913:CE  |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 33 30 30 20 20 20 |        |  300   |
|00004820| 20 20 20 20 20 20 20 20 | 64 62 20 20 20 20 53 65 |        |db    Se|
|00004830| 74 4d 43 6d 64 0d 30 39 | 31 34 3a 45 39 20 30 39 |tMCmd.09|14:E9 09|
|00004840| 20 20 20 20 20 20 20 20 | 20 33 30 31 20 20 20 20 |        | 301    |
|00004850| 20 20 20 20 20 20 20 64 | 77 20 20 20 20 53 65 74 |       d|w    Set|
|00004860| 4d 50 61 72 6d 73 0d 30 | 39 31 36 3a 20 20 20 20 |MParms.0|916:    |
|00004870| 20 20 20 20 20 20 20 20 | 20 20 33 30 32 20 2a 0d |        |  302 *.|
|00004880| 30 39 31 36 3a 32 30 20 | 30 30 20 42 46 20 20 20 |0916:20 |00 BF   |
|00004890| 20 20 20 33 30 33 20 20 | 20 20 20 20 20 20 20 20 |   303  |        |
|000048a0| 20 6a 73 72 20 20 20 4d | 4c 49 20 20 20 20 20 20 | jsr   M|LI      |
|000048b0| 20 20 20 20 20 3b 20 6e | 6f 77 20 72 65 61 64 20 |     ; n|ow read |
|000048c0| 69 6e 20 74 68 65 20 62 | 6c 6f 63 6b 20 77 65 0d |in the b|lock we.|
|000048d0| 30 39 31 39 3a 43 41 20 | 20 20 20 20 20 20 20 20 |0919:CA |        |
|000048e0| 20 20 20 33 30 34 20 20 | 20 20 20 20 20 20 20 20 |   304  |        |
|000048f0| 20 64 62 20 20 20 20 52 | 65 61 64 43 6d 64 20 20 | db    R|eadCmd  |
|00004900| 20 20 20 20 20 3b 20 77 | 65 72 65 20 6f 6e 20 6c |     ; w|ere on l|
|00004910| 61 73 74 2e 0d 30 39 31 | 41 3a 44 46 20 30 39 20 |ast..091|A:DF 09 |
|00004920| 20 20 20 20 20 20 20 20 | 33 30 35 20 20 20 20 20 |        |305     |
|00004930| 20 20 20 20 20 20 64 77 | 20 20 20 20 52 65 61 64 |      dw|    Read|
|00004940| 50 61 72 6d 73 0d 30 39 | 31 43 3a 20 20 20 20 20 |Parms.09|1C:     |
|00004950| 20 20 20 20 20 20 20 20 | 20 33 30 36 20 2a 0d 30 |        | 306 *.0|
|00004960| 39 31 43 3a 43 45 20 44 | 32 20 30 39 20 20 20 20 |91C:CE D|2 09    |
|00004970| 20 20 33 30 37 20 20 20 | 20 20 20 20 20 20 20 20 |  307   |        |
|00004980| 64 65 63 20 20 20 44 65 | 70 74 68 0d 30 39 31 46 |dec   De|pth.091F|
|00004990| 3a 36 30 20 20 20 20 20 | 20 20 20 20 20 20 20 33 |:60     |       3|
|000049a0| 30 38 20 20 20 20 20 20 | 20 20 20 20 20 72 74 73 |08      |     rts|
|000049b0| 0d 30 39 32 30 3a 20 20 | 20 20 20 20 20 20 20 20 |.0920:  |        |
|000049c0| 20 20 20 20 33 30 39 20 | 2a 0d 30 39 32 30 3a 20 |    309 |*.0920: |
|000049d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 33 31 30 |        |     310|
|000049e0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|000049f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a10| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 30 39 32 30 3a 20 20 |********|.0920:  |
|00004a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 33 31 31 20 |        |    311 |
|00004a30| 2a 0d 30 39 32 30 3a 20 | 20 20 20 20 20 20 20 30 |*.0920: |       0|
|00004a40| 39 32 30 20 20 33 31 32 | 20 45 78 74 65 6e 64 4e |920  312| ExtendN|
|00004a50| 61 6d 65 20 65 71 75 20 | 20 2a 0d 30 39 32 30 3a |ame equ | *.0920:|
|00004a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 31 |        |      31|
|00004a70| 33 20 2a 0d 30 39 32 30 | 3a 20 20 20 20 20 20 20 |3 *.0920|:       |
|00004a80| 20 20 20 20 20 20 20 33 | 31 34 20 2a 20 41 70 70 |       3|14 * App|
|00004a90| 65 6e 64 20 74 68 65 20 | 6e 61 6d 65 20 69 6e 20 |end the |name in |
|00004aa0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 |the curr|ent dire|
|00004ab0| 63 74 6f 72 79 20 65 6e | 74 72 79 0d 30 39 32 30 |ctory en|try.0920|
|00004ac0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 33 |:       |       3|
|00004ad0| 31 35 20 2a 20 74 6f 20 | 74 68 65 20 6e 61 6d 65 |15 * to |the name|
|00004ae0| 20 69 6e 20 74 68 65 20 | 64 69 72 65 63 74 6f 72 | in the |director|
|00004af0| 79 20 6e 61 6d 65 20 62 | 75 66 66 65 72 2e 20 54 |y name b|uffer. T|
|00004b00| 68 69 73 0d 30 39 32 30 | 3a 20 20 20 20 20 20 20 |his.0920|:       |
|00004b10| 20 20 20 20 20 20 20 33 | 31 36 20 2a 20 77 69 6c |       3|16 * wil|
|00004b20| 6c 20 61 6c 6c 6f 77 20 | 75 73 20 74 6f 20 64 65 |l allow |us to de|
|00004b30| 73 63 65 6e 64 20 61 6e | 6f 74 68 65 72 20 6c 65 |scend an|other le|
|00004b40| 76 65 6c 20 69 6e 74 6f | 20 74 68 65 0d 30 39 32 |vel into| the.092|
|00004b50| 30 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0:      |        |
|00004b60| 33 31 37 20 2a 20 64 69 | 73 6b 20 68 69 65 72 61 |317 * di|sk hiera|
|00004b70| 72 63 68 79 20 77 68 65 | 6e 20 77 65 20 63 61 6c |rchy whe|n we cal|
|00004b80| 6c 20 52 65 61 64 44 69 | 72 2e 0d 30 39 32 30 3a |l ReadDi|r..0920:|
|00004b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 31 |        |      31|
|00004ba0| 38 20 2a 0d 30 39 32 30 | 3a 41 30 20 30 30 20 20 |8 *.0920|:A0 00  |
|00004bb0| 20 20 20 20 20 20 20 33 | 31 39 20 20 20 20 20 20 |       3|19      |
|00004bc0| 20 20 20 20 20 6c 64 79 | 20 20 20 23 30 20 20 20 |     ldy|   #0   |
|00004bd0| 20 20 20 20 20 20 20 20 | 20 3b 20 67 65 74 20 6c |        | ; get l|
|00004be0| 65 6e 67 74 68 20 6f 66 | 20 73 74 72 69 6e 67 20 |ength of| string |
|00004bf0| 74 6f 20 63 6f 70 79 0d | 30 39 32 32 3a 42 31 20 |to copy.|0922:B1 |
|00004c00| 38 32 20 20 20 20 20 20 | 20 20 20 33 32 30 20 20 |82      |   320  |
|00004c10| 20 20 20 20 20 20 20 20 | 20 6c 64 61 20 20 20 28 |        | lda   (|
|00004c20| 65 6e 74 50 74 72 29 2c | 79 20 20 20 20 0d 30 39 |entPtr),|y    .09|
|00004c30| 32 34 3a 32 39 20 30 46 | 20 20 20 20 20 20 20 20 |24:29 0F|        |
|00004c40| 20 33 32 31 20 20 20 20 | 20 20 20 20 20 20 20 61 | 321    |       a|
|00004c50| 6e 64 20 20 20 23 24 30 | 46 0d 30 39 32 36 3a 38 |nd   #$0|F.0926:8|
|00004c60| 44 20 35 33 20 30 39 20 | 20 20 20 20 20 33 32 32 |D 53 09 |     322|
|00004c70| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 61 20 20 |        |   sta  |
|00004c80| 20 65 78 74 43 6e 74 20 | 20 20 20 20 20 20 20 3b | extCnt |       ;|
|00004c90| 20 73 61 76 65 20 74 68 | 65 20 6c 65 6e 67 74 68 | save th|e length|
|00004ca0| 20 68 65 72 65 0d 30 39 | 32 39 3a 38 43 20 35 34 | here.09|29:8C 54|
|00004cb0| 20 30 39 20 20 20 20 20 | 20 33 32 33 20 20 20 20 | 09     | 323    |
|00004cc0| 20 20 20 20 20 20 20 73 | 74 79 20 20 20 73 72 63 |       s|ty   src|
|00004cd0| 50 74 72 20 20 20 20 20 | 20 20 20 3b 20 69 6e 69 |Ptr     |   ; ini|
|00004ce0| 74 20 73 72 63 20 70 74 | 72 20 74 6f 20 7a 65 72 |t src pt|r to zer|
|00004cf0| 6f 0d 30 39 32 43 3a 20 | 20 20 20 20 20 20 20 20 |o.092C: |        |
|00004d00| 20 20 20 20 20 33 32 34 | 20 2a 0d 30 39 32 43 3a |     324| *.092C:|
|00004d10| 41 30 20 30 30 20 20 20 | 20 20 20 20 20 20 33 32 |A0 00   |      32|
|00004d20| 35 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 79 20 |5       |    ldy |
|00004d30| 20 20 23 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |  #0    |        |
|00004d40| 3b 20 69 6e 69 74 20 64 | 65 73 74 20 70 74 72 20 |; init d|est ptr |
|00004d50| 74 6f 20 65 6e 64 20 6f | 66 0d 30 39 32 45 3a 42 |to end o|f.092E:B|
|00004d60| 31 20 38 30 20 20 20 20 | 20 20 20 20 20 33 32 36 |1 80    |     326|
|00004d70| 20 20 20 20 20 20 20 20 | 20 20 20 6c 64 61 20 20 |        |   lda  |
|00004d80| 20 28 64 69 72 4e 61 6d | 65 29 2c 79 20 20 20 3b | (dirNam|e),y   ;|
|00004d90| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 69 72 | the cur|rent dir|
|00004da0| 65 63 74 6f 72 79 20 6e | 61 6d 65 0d 30 39 33 30 |ectory n|ame.0930|
|00004db0| 3a 38 44 20 35 35 20 30 | 39 20 20 20 20 20 20 33 |:8D 55 0|9      3|
|00004dc0| 32 37 20 20 20 20 20 20 | 20 20 20 20 20 73 74 61 |27      |     sta|
|00004dd0| 20 20 20 64 65 73 74 50 | 74 72 0d 30 39 33 33 3a |   destP|tr.0933:|
|00004de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 32 |        |      32|
|00004df0| 38 20 2a 0d 30 39 33 33 | 3a 20 20 20 20 20 20 20 |8 *.0933|:       |
|00004e00| 20 30 39 33 33 20 20 33 | 32 39 20 65 78 74 6c 6f | 0933  3|29 extlo|
|00004e10| 6f 70 20 20 20 65 71 75 | 20 20 20 2a 0d 30 39 33 |op   equ|   *.093|
|00004e20| 33 3a 45 45 20 35 34 20 | 30 39 20 20 20 20 20 20 |3:EE 54 |09      |
|00004e30| 33 33 30 20 20 20 20 20 | 20 20 20 20 20 20 69 6e |330     |      in|
|00004e40| 63 20 20 20 73 72 63 50 | 74 72 20 20 20 20 20 20 |c   srcP|tr      |
|00004e50| 20 20 3b 20 62 75 6d 70 | 20 74 6f 20 6e 65 78 74 |  ; bump| to next|
|00004e60| 20 63 68 61 72 20 74 6f | 20 72 65 61 64 0d 30 39 | char to| read.09|
|00004e70| 33 36 3a 45 45 20 35 35 | 20 30 39 20 20 20 20 20 |36:EE 55| 09     |
|00004e80| 20 33 33 31 20 20 20 20 | 20 20 20 20 20 20 20 69 | 331    |       i|
|00004e90| 6e 63 20 20 20 64 65 73 | 74 50 74 72 20 20 20 20 |nc   des|tPtr    |
|00004ea0| 20 20 20 3b 20 62 75 6d | 70 20 74 6f 20 6e 65 78 |   ; bum|p to nex|
|00004eb0| 74 20 65 6d 70 74 79 20 | 6c 6f 63 61 74 69 6f 6e |t empty |location|
|00004ec0| 0d 30 39 33 39 3a 41 43 | 20 35 34 20 30 39 20 20 |.0939:AC| 54 09  |
|00004ed0| 20 20 20 20 33 33 32 20 | 20 20 20 20 20 20 20 20 |    332 |        |
|00004ee0| 20 20 6c 64 79 20 20 20 | 73 72 63 50 74 72 20 20 |  ldy   |srcPtr  |
|00004ef0| 20 20 20 20 20 20 3b 20 | 67 65 74 20 63 68 61 72 |      ; |get char|
|00004f00| 20 6f 66 20 73 75 62 2d | 64 69 72 20 6e 61 6d 65 | of sub-|dir name|
|00004f10| 0d 30 39 33 43 3a 42 31 | 20 38 32 20 20 20 20 20 |.093C:B1| 82     |
|00004f20| 20 20 20 20 33 33 33 20 | 20 20 20 20 20 20 20 20 |    333 |        |
|00004f30| 20 20 6c 64 61 20 20 20 | 28 65 6e 74 50 74 72 29 |  lda   |(entPtr)|
|00004f40| 2c 79 0d 30 39 33 45 3a | 41 43 20 35 35 20 30 39 |,y.093E:|AC 55 09|
|00004f50| 20 20 20 20 20 20 33 33 | 34 20 20 20 20 20 20 20 |      33|4       |
|00004f60| 20 20 20 20 6c 64 79 20 | 20 20 64 65 73 74 50 74 |    ldy |  destPt|
|00004f70| 72 20 20 20 20 20 20 20 | 3b 20 74 61 63 6b 20 6f |r       |; tack o|
|00004f80| 6e 20 74 6f 20 65 6e 64 | 20 6f 66 20 63 75 72 2e |n to end| of cur.|
|00004f90| 20 64 69 72 2e 0d 30 39 | 34 31 3a 39 31 20 38 30 | dir..09|41:91 80|
|00004fa0| 20 20 20 20 20 20 20 20 | 20 33 33 35 20 20 20 20 |        | 335    |
|00004fb0| 20 20 20 20 20 20 20 73 | 74 61 20 20 20 28 64 69 |       s|ta   (di|
|00004fc0| 72 4e 61 6d 65 29 2c 79 | 0d 30 39 34 33 3a 43 45 |rName),y|.0943:CE|
|00004fd0| 20 35 33 20 30 39 20 20 | 20 20 20 20 33 33 36 20 | 53 09  |    336 |
|00004fe0| 20 20 20 20 20 20 20 20 | 20 20 64 65 63 20 20 20 |        |  dec   |
|00004ff0| 65 78 74 43 6e 74 20 20 | 20 20 20 20 20 20 3b 20 |extCnt  |      ; |
|00005000| 64 6f 6e 65 20 61 6c 6c | 20 63 68 61 72 73 3f 0d |done all| chars?.|
|00005010| 30 39 34 36 3a 44 30 20 | 45 42 20 20 20 30 39 33 |0946:D0 |EB   093|
|00005020| 33 20 20 33 33 37 20 20 | 20 20 20 20 20 20 20 20 |3  337  |        |
|00005030| 20 62 6e 65 20 20 20 65 | 78 74 6c 6f 6f 70 20 20 | bne   e|xtloop  |
|00005040| 20 20 20 20 20 3b 20 6e | 6f 20 2d 20 73 6f 20 64 |     ; n|o - so d|
|00005050| 6f 20 6d 6f 72 65 0d 30 | 39 34 38 3a 20 20 20 20 |o more.0|948:    |
|00005060| 20 20 20 20 20 20 20 20 | 20 20 33 33 38 20 2a 0d |        |  338 *.|
|00005070| 30 39 34 38 3a 43 38 20 | 20 20 20 20 20 20 20 20 |0948:C8 |        |
|00005080| 20 20 20 33 33 39 20 20 | 20 20 20 20 20 20 20 20 |   339  |        |
|00005090| 20 69 6e 79 0d 30 39 34 | 39 3a 41 39 20 32 46 20 | iny.094|9:A9 2F |
|000050a0| 20 20 20 20 20 20 20 20 | 33 34 30 20 20 20 20 20 |        |340     |
|000050b0| 20 20 20 20 20 20 6c 64 | 61 20 20 20 23 27 2f 27 |      ld|a   #'/'|
|000050c0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 74 61 63 6b |        |  ; tack|
|000050d0| 20 22 2f 22 20 6f 6e 20 | 74 6f 20 74 68 65 20 65 | "/" on |to the e|
|000050e0| 6e 64 0d 30 39 34 42 3a | 39 31 20 38 30 20 20 20 |nd.094B:|91 80   |
|000050f0| 20 20 20 20 20 20 33 34 | 31 20 20 20 20 20 20 20 |      34|1       |
|00005100| 20 20 20 20 73 74 61 20 | 20 20 28 64 69 72 4e 61 |    sta |  (dirNa|
|00005110| 6d 65 29 2c 79 0d 30 39 | 34 44 3a 20 20 20 20 20 |me),y.09|4D:     |
|00005120| 20 20 20 20 20 20 20 20 | 20 33 34 32 20 2a 0d 30 |        | 342 *.0|
|00005130| 39 34 44 3a 39 38 20 20 | 20 20 20 20 20 20 20 20 |94D:98  |        |
|00005140| 20 20 33 34 33 20 20 20 | 20 20 20 20 20 20 20 20 |  343   |        |
|00005150| 74 79 61 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |tya     |        |
|00005160| 20 20 20 20 3b 20 66 69 | 78 20 6c 65 6e 67 74 68 |    ; fi|x length|
|00005170| 20 6f 66 20 66 69 6c 65 | 6e 61 6d 65 20 74 6f 20 | of file|name to |
|00005180| 6f 70 65 6e 0d 30 39 34 | 45 3a 41 30 20 30 30 20 |open.094|E:A0 00 |
|00005190| 20 20 20 20 20 20 20 20 | 33 34 34 20 20 20 20 20 |        |344     |
|000051a0| 20 20 20 20 20 20 6c 64 | 79 20 20 20 23 30 0d 30 |      ld|y   #0.0|
|000051b0| 39 35 30 3a 39 31 20 38 | 30 20 20 20 20 20 20 20 |950:91 8|0       |
|000051c0| 20 20 33 34 35 20 20 20 | 20 20 20 20 20 20 20 20 |  345   |        |
|000051d0| 73 74 61 20 20 20 28 64 | 69 72 4e 61 6d 65 29 2c |sta   (d|irName),|
|000051e0| 79 0d 30 39 35 32 3a 20 | 20 20 20 20 20 20 20 20 |y.0952: |        |
|000051f0| 20 20 20 20 20 33 34 36 | 20 2a 0d 30 39 35 32 3a |     346| *.0952:|
|00005200| 36 30 20 20 20 20 20 20 | 20 20 20 20 20 20 33 34 |60      |      34|
|00005210| 37 20 20 20 20 20 20 20 | 20 20 20 20 72 74 73 0d |7       |    rts.|
|00005220| 30 39 35 33 3a 20 20 20 | 20 20 20 20 20 20 20 20 |0953:   |        |
|00005230| 20 20 20 33 34 38 20 2a | 0d 0d 30 31 20 52 45 43 |   348 *|..01 REC|
|00005240| 55 52 53 49 56 45 2e 53 | 20 20 20 20 20 50 72 6f |URSIVE.S|     Pro|
|00005250| 44 4f 53 20 43 61 74 61 | 6c 6f 67 20 52 6f 75 74 |DOS Cata|log Rout|
|00005260| 69 6e 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ine     |        |
|00005270| 20 32 37 2d 41 55 47 2d | 38 38 20 20 31 36 3a 32 | 27-AUG-|88  16:2|
|00005280| 30 20 50 41 47 45 20 38 | 0d 20 0d 30 39 35 33 3a |0 PAGE 8|. .0953:|
|00005290| 20 20 20 20 20 20 20 20 | 30 30 30 31 20 20 33 34 |        |0001  34|
|000052a0| 39 20 65 78 74 43 6e 74 | 20 20 20 20 64 73 20 20 |9 extCnt|    ds  |
|000052b0| 20 20 31 0d 30 39 35 34 | 3a 20 20 20 20 20 20 20 |  1.0954|:       |
|000052c0| 20 30 30 30 31 20 20 33 | 35 30 20 73 72 63 50 74 | 0001  3|50 srcPt|
|000052d0| 72 20 20 20 20 64 73 20 | 20 20 20 31 0d 30 39 35 |r    ds |   1.095|
|000052e0| 35 3a 20 20 20 20 20 20 | 20 20 30 30 30 31 20 20 |5:      |  0001  |
|000052f0| 33 35 31 20 64 65 73 74 | 50 74 72 20 20 20 64 73 |351 dest|Ptr   ds|
|00005300| 20 20 20 20 31 0d 30 39 | 35 36 3a 20 20 20 20 20 |    1.09|56:     |
|00005310| 20 20 20 20 20 20 20 20 | 20 33 35 32 20 2a 0d 30 |        | 352 *.0|
|00005320| 39 35 36 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |956:    |        |
|00005330| 20 20 33 35 33 20 2a 0d | 30 39 35 36 3a 20 20 20 |  353 *.|0956:   |
|00005340| 20 20 20 20 20 20 20 20 | 20 20 20 33 35 34 20 2a |        |   354 *|
|00005350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005380| 2a 2a 2a 2a 2a 2a 0d 30 | 39 35 36 3a 20 20 20 20 |******.0|956:    |
|00005390| 20 20 20 20 20 20 20 20 | 20 20 33 35 35 20 2a 0d |        |  355 *.|
|000053a0| 30 39 35 36 3a 20 20 20 | 20 20 20 20 20 30 39 35 |0956:   |     095|
|000053b0| 36 20 20 33 35 36 20 43 | 68 6f 70 4e 61 6d 65 20 |6  356 C|hopName |
|000053c0| 20 65 71 75 20 20 20 2a | 0d 30 39 35 36 3a 20 20 | equ   *|.0956:  |
|000053d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 33 35 37 20 |        |    357 |
|000053e0| 2a 0d 30 39 35 36 3a 20 | 20 20 20 20 20 20 20 20 |*.0956: |        |
|000053f0| 20 20 20 20 20 33 35 38 | 20 2a 20 53 63 61 6e 73 |     358| * Scans|
|00005400| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 64 69 72 | the cur|rent dir|
|00005410| 65 63 74 6f 72 79 20 6e | 61 6d 65 2c 20 61 6e 64 |ectory n|ame, and|
|00005420| 20 63 68 6f 70 73 0d 30 | 39 35 36 3a 20 20 20 20 | chops.0|956:    |
|00005430| 20 20 20 20 20 20 20 20 | 20 20 33 35 39 20 2a 20 |        |  359 * |
|00005440| 6f 66 66 20 63 68 61 72 | 61 63 74 65 72 73 20 75 |off char|acters u|
|00005450| 6e 74 69 6c 20 69 74 20 | 67 65 74 73 20 74 6f 20 |ntil it |gets to |
|00005460| 61 20 2f 2e 0d 30 39 35 | 36 3a 20 20 20 20 20 20 |a /..095|6:      |
|00005470| 20 20 20 20 20 20 20 20 | 33 36 30 20 2a 0d 30 39 |        |360 *.09|
|00005480| 35 36 3a 41 30 20 30 30 | 20 20 20 20 20 20 20 20 |56:A0 00|        |
|00005490| 20 33 36 31 20 20 20 20 | 20 20 20 20 20 20 20 6c | 361    |       l|
|000054a0| 64 79 20 20 20 23 30 20 | 20 20 20 20 20 20 20 20 |dy   #0 |        |
|000054b0| 20 20 20 3b 20 67 65 74 | 20 6c 65 6e 20 6f 66 20 |   ; get| len of |
|000054c0| 63 75 72 72 65 6e 74 20 | 64 69 72 2e 0d 30 39 35 |current |dir..095|
|000054d0| 38 3a 42 31 20 38 30 20 | 20 20 20 20 20 20 20 20 |8:B1 80 |        |
|000054e0| 33 36 32 20 20 20 20 20 | 20 20 20 20 20 20 6c 64 |362     |      ld|
|000054f0| 61 20 20 20 28 64 69 72 | 4e 61 6d 65 29 2c 79 0d |a   (dir|Name),y.|
|00005500| 30 39 35 41 3a 41 38 20 | 20 20 20 20 20 20 20 20 |095A:A8 |        |
|00005510| 20 20 20 33 36 33 20 20 | 20 20 20 20 20 20 20 20 |   363  |        |
|00005520| 20 74 61 79 0d 30 39 35 | 42 3a 20 20 20 20 20 20 | tay.095|B:      |
|00005530| 20 20 30 39 35 42 20 20 | 33 36 34 20 43 68 6f 70 |  095B  |364 Chop|
|00005540| 4c 6f 6f 70 20 20 65 71 | 75 20 20 20 2a 0d 30 39 |Loop  eq|u   *.09|
|00005550| 35 42 3a 38 38 20 20 20 | 20 20 20 20 20 20 20 20 |5B:88   |        |
|00005560| 20 33 36 35 20 20 20 20 | 20 20 20 20 20 20 20 64 | 365    |       d|
|00005570| 65 79 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ey      |        |
|00005580| 20 20 20 3b 20 62 75 6d | 70 20 74 6f 20 70 72 65 |   ; bum|p to pre|
|00005590| 76 69 6f 75 73 20 63 68 | 61 72 0d 30 39 35 43 3a |vious ch|ar.095C:|
|000055a0| 42 31 20 38 30 20 20 20 | 20 20 20 20 20 20 33 36 |B1 80   |      36|
|000055b0| 36 20 20 20 20 20 20 20 | 20 20 20 20 6c 64 61 20 |6       |    lda |
|000055c0| 20 20 28 64 69 72 4e 61 | 6d 65 29 2c 79 0d 30 39 |  (dirNa|me),y.09|
|000055d0| 35 45 3a 43 39 20 32 46 | 20 20 20 20 20 20 20 20 |5E:C9 2F|        |
|000055e0| 20 33 36 37 20 20 20 20 | 20 20 20 20 20 20 20 63 | 367    |       c|
|000055f0| 6d 70 20 20 20 23 27 2f | 27 0d 30 39 36 30 3a 44 |mp   #'/|'.0960:D|
|00005600| 30 20 46 39 20 20 20 30 | 39 35 42 20 20 33 36 38 |0 F9   0|95B  368|
|00005610| 20 20 20 20 20 20 20 20 | 20 20 20 62 6e 65 20 20 |        |   bne  |
|00005620| 20 43 68 6f 70 4c 6f 6f | 70 0d 30 39 36 32 3a 39 | ChopLoo|p.0962:9|
|00005630| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 33 36 39 |8       |     369|
|00005640| 20 20 20 20 20 20 20 20 | 20 20 20 74 79 61 0d 30 |        |   tya.0|
|00005650| 39 36 33 3a 41 30 20 30 | 30 20 20 20 20 20 20 20 |963:A0 0|0       |
|00005660| 20 20 33 37 30 20 20 20 | 20 20 20 20 20 20 20 20 |  370   |        |
|00005670| 6c 64 79 20 20 20 23 30 | 0d 30 39 36 35 3a 39 31 |ldy   #0|.0965:91|
|00005680| 20 38 30 20 20 20 20 20 | 20 20 20 20 33 37 31 20 | 80     |    371 |
|00005690| 20 20 20 20 20 20 20 20 | 20 20 73 74 61 20 20 20 |        |  sta   |
|000056a0| 28 64 69 72 4e 61 6d 65 | 29 2c 79 0d 30 39 36 37 |(dirName|),y.0967|
|000056b0| 3a 36 30 20 20 20 20 20 | 20 20 20 20 20 20 20 33 |:60     |       3|
|000056c0| 37 32 20 20 20 20 20 20 | 20 20 20 20 20 72 74 73 |72      |     rts|
|000056d0| 0d 30 39 36 38 3a 20 20 | 20 20 20 20 20 20 20 20 |.0968:  |        |
|000056e0| 20 20 20 20 33 37 33 20 | 2a 0d 30 39 36 38 3a 20 |    373 |*.0968: |
|000056f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 33 37 34 |        |     374|
|00005700| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00005710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005730| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 30 39 36 38 3a 20 20 |********|.0968:  |
|00005740| 20 20 20 20 20 20 20 20 | 20 20 20 20 33 37 35 20 |        |    375 |
|00005750| 2a 0d 30 39 36 38 3a 20 | 20 20 20 20 20 20 20 30 |*.0968: |       0|
|00005760| 39 36 38 20 20 33 37 36 | 20 47 65 74 4e 65 78 74 |968  376| GetNext|
|00005770| 20 20 20 65 71 75 20 20 | 20 2a 0d 30 39 36 38 3a |   equ  | *.0968:|
|00005780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 37 |        |      37|
|00005790| 37 20 2a 0d 30 39 36 38 | 3a 20 20 20 20 20 20 20 |7 *.0968|:       |
|000057a0| 20 20 20 20 20 20 20 33 | 37 38 20 2a 20 54 68 69 |       3|78 * Thi|
|000057b0| 73 20 72 6f 75 74 69 6e | 65 20 69 73 20 72 65 73 |s routin|e is res|
|000057c0| 70 6f 6e 73 69 62 6c 65 | 20 66 6f 72 20 6d 61 6b |ponsible| for mak|
|000057d0| 69 6e 67 20 61 20 70 6f | 69 6e 74 65 72 0d 30 39 |ing a po|inter.09|
|000057e0| 36 38 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |68:     |        |
|000057f0| 20 33 37 39 20 2a 20 74 | 6f 20 74 68 65 20 6e 65 | 379 * t|o the ne|
|00005800| 78 74 20 65 6e 74 72 79 | 20 69 6e 20 74 68 65 20 |xt entry| in the |
|00005810| 64 69 72 65 63 74 6f 72 | 79 2e 20 49 66 20 74 68 |director|y. If th|
|00005820| 65 72 65 20 61 72 65 0d | 30 39 36 38 3a 20 20 20 |ere are.|0968:   |
|00005830| 20 20 20 20 20 20 20 20 | 20 20 20 33 38 30 20 2a |        |   380 *|
|00005840| 20 73 74 69 6c 6c 20 65 | 6e 74 72 69 65 73 20 74 | still e|ntries t|
|00005850| 6f 20 62 65 20 70 72 6f | 63 65 73 73 65 64 20 69 |o be pro|cessed i|
|00005860| 6e 20 74 68 69 73 20 62 | 6c 6f 63 6b 2c 20 74 68 |n this b|lock, th|
|00005870| 65 6e 0d 30 39 36 38 3a | 20 20 20 20 20 20 20 20 |en.0968:|        |
|00005880| 20 20 20 20 20 20 33 38 | 31 20 2a 20 77 65 20 73 |      38|1 * we s|
|00005890| 69 6d 70 6c 79 20 62 75 | 6d 70 20 74 68 65 20 70 |imply bu|mp the p|
|000058a0| 6f 69 6e 74 65 72 20 62 | 79 20 74 68 65 20 73 69 |ointer b|y the si|
|000058b0| 7a 65 20 6f 66 20 74 68 | 65 0d 30 39 36 38 3a 20 |ze of th|e.0968: |
|000058c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 33 38 32 |        |     382|
|000058d0| 20 2a 20 64 69 72 65 63 | 74 6f 72 79 20 65 6e 74 | * direc|tory ent|
|000058e0| 72 79 2e 20 49 66 20 77 | 65 20 68 61 76 65 20 66 |ry. If w|e have f|
|000058f0| 69 6e 69 73 68 65 64 20 | 77 69 74 68 20 74 68 69 |inished |with thi|
|00005900| 73 0d 30 39 36 38 3a 20 | 20 20 20 20 20 20 20 20 |s.0968: |        |
|00005910| 20 20 20 20 20 33 38 33 | 20 2a 20 62 6c 6f 63 6b |     383| * block|
|00005920| 2c 20 74 68 65 6e 20 77 | 65 20 72 65 61 64 20 69 |, then w|e read i|
|00005930| 6e 20 74 68 65 20 6e 65 | 78 74 20 62 6c 6f 63 6b |n the ne|xt block|
|00005940| 2c 20 70 6f 69 6e 74 20 | 74 6f 0d 30 39 36 38 3a |, point |to.0968:|
|00005950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 33 38 |        |      38|
|00005960| 34 20 2a 20 74 68 65 20 | 66 69 72 73 74 20 65 6e |4 * the |first en|
|00005970| 74 72 79 2c 20 61 6e 64 | 20 69 6e 63 72 65 6d 65 |try, and| increme|
|00005980| 6e 74 20 6f 75 72 20 62 | 6c 6f 63 6b 20 63 6f 75 |nt our b|lock cou|
|00005990| 6e 74 65 72 2e 0d 30 39 | 36 38 3a 20 20 20 20 20 |nter..09|68:     |
|000059a0| 20 20 20 20 20 20 20 20 | 20 33 38 35 20 2a 0d 30 |        | 385 *.0|
|000059b0| 39 36 38 3a 41 44 20 44 | 33 20 30 39 20 20 20 20 |968:AD D|3 09    |
|000059c0| 20 20 33 38 36 20 20 20 | 20 20 20 20 20 20 20 20 |  386   |        |
|000059d0| 6c 64 61 20 20 20 54 68 | 69 73 45 6e 74 72 79 20 |lda   Th|isEntry |
|000059e0| 20 20 20 20 3b 20 64 65 | 63 20 74 6f 74 61 6c 20 |    ; de|c total |
|000059f0| 65 6e 74 72 69 65 73 0d | 30 39 36 42 3a 44 30 20 |entries.|096B:D0 |
|00005a00| 30 35 20 20 20 30 39 37 | 32 20 20 33 38 37 20 20 |05   097|2  387  |
|00005a10| 20 20 20 20 20 20 20 20 | 20 62 6e 65 20 20 20 73 |        | bne   s|
|00005a20| 6b 69 70 31 0d 30 39 36 | 44 3a 43 45 20 44 34 20 |kip1.096|D:CE D4 |
|00005a30| 30 39 20 20 20 20 20 20 | 33 38 38 20 20 20 20 20 |09      |388     |
|00005a40| 20 20 20 20 20 20 64 65 | 63 20 20 20 54 68 69 73 |      de|c   This|
|00005a50| 45 6e 74 72 79 2b 31 0d | 30 39 37 30 3a 33 30 20 |Entry+1.|0970:30 |
|00005a60| 33 33 20 20 20 30 39 41 | 35 20 20 33 38 39 20 20 |33   09A|5  389  |
|00005a70| 20 20 20 20 20 20 20 20 | 20 62 6d 69 20 20 20 44 |        | bmi   D|
|00005a80| 69 72 44 6f 6e 65 20 20 | 20 20 20 20 20 3b 20 64 |irDone  |     ; d|
|00005a90| 6f 6e 65 20 77 69 74 68 | 20 74 68 69 73 20 64 69 |one with| this di|
|00005aa0| 72 65 63 74 6f 72 79 0d | 30 39 37 32 3a 43 45 20 |rectory.|0972:CE |
|00005ab0| 44 33 20 30 39 20 20 20 | 20 20 20 33 39 30 20 73 |D3 09   |   390 s|
|00005ac0| 6b 69 70 31 20 20 20 20 | 20 64 65 63 20 20 20 54 |kip1    | dec   T|
|00005ad0| 68 69 73 45 6e 74 72 79 | 0d 30 39 37 35 3a 20 20 |hisEntry|.0975:  |
|00005ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 33 39 31 20 |        |    391 |
|00005af0| 2a 0d 30 39 37 35 3a 43 | 45 20 44 35 20 30 39 20 |*.0975:C|E D5 09 |
|00005b00| 20 20 20 20 20 33 39 32 | 20 20 20 20 20 20 20 20 |     392|        |
|00005b10| 20 20 20 64 65 63 20 20 | 20 54 68 69 73 42 45 6e |   dec  | ThisBEn|
|00005b20| 74 72 79 20 20 20 20 3b | 20 64 65 63 20 63 6f 75 |try    ;| dec cou|
|00005b30| 6e 74 20 66 6f 72 20 74 | 68 69 73 20 62 6c 6f 63 |nt for t|his bloc|
|00005b40| 6b 0d 30 39 37 38 3a 46 | 30 20 31 30 20 20 20 30 |k.0978:F|0 10   0|
|00005b50| 39 38 41 20 20 33 39 33 | 20 20 20 20 20 20 20 20 |98A  393|        |
|00005b60| 20 20 20 62 65 71 20 20 | 20 52 65 61 64 4e 65 78 |   beq  | ReadNex|
|00005b70| 74 20 20 20 20 20 20 3b | 20 64 6f 6e 65 20 77 2f |t      ;| done w/|
|00005b80| 74 68 69 73 20 62 6c 6f | 63 6b 2c 20 67 65 74 20 |this blo|ck, get |
|00005b90| 6e 65 78 74 20 6f 6e 65 | 0d 30 39 37 41 3a 20 20 |next one|.097A:  |
|00005ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 33 39 34 20 |        |    394 |
|00005bb0| 2a 0d 30 39 37 41 3a 31 | 38 20 20 20 20 20 20 20 |*.097A:1|8       |
|00005bc0| 20 20 20 20 20 33 39 35 | 20 20 20 20 20 20 20 20 |     395|        |
|00005bd0| 20 20 20 63 6c 63 20 20 | 20 20 20 20 20 20 20 20 |   clc  |        |
|00005be0| 20 20 20 20 20 20 20 3b | 20 65 6c 73 65 20 62 75 |       ;| else bu|
|00005bf0| 6d 70 20 75 70 20 69 6e | 64 65 78 0d 30 39 37 42 |mp up in|dex.097B|
|00005c00| 3a 41 35 20 38 32 20 20 | 20 20 20 20 20 20 20 33 |:A5 82  |       3|
|00005c10| 39 36 20 20 20 20 20 20 | 20 20 20 20 20 6c 64 61 |96      |     lda|
|00005c20| 20 20 20 65 6e 74 50 74 | 72 0d 30 39 37 44 3a 36 |   entPt|r.097D:6|
|00005c30| 44 20 44 37 20 30 39 20 | 20 20 20 20 20 33 39 37 |D D7 09 |     397|
|00005c40| 20 20 20 20 20 20 20 20 | 20 20 20 61 64 63 20 20 |        |   adc  |
|00005c50| 20 65 6e 74 72 79 4c 65 | 6e 0d 30 39 38 30 3a 38 | entryLe|n.0980:8|
|00005c60| 35 20 38 32 20 20 20 20 | 20 20 20 20 20 33 39 38 |5 82    |     398|
|00005c70| 20 20 20 20 20 20 20 20 | 20 20 20 73 74 61 20 20 |        |   sta  |
|00005c80| 20 65 6e 74 50 74 72 0d | 30 39 38 32 3a 41 35 20 | entPtr.|0982:A5 |
|00005c90| 38 33 20 20 20 20 20 20 | 20 20 20 33 39 39 20 20 |83      |   399  |
|00005ca0| 20 20 20 20 20 20 20 20 | 20 6c 64 61 20 20 20 65 |        | lda   e|
|00005cb0| 6e 74 50 74 72 2b 31 0d | 30 39 38 34 3a 36 39 20 |ntPtr+1.|0984:69 |
|00005cc0| 30 30 20 20 20 20 20 20 | 20 20 20 34 30 30 20 20 |00      |   400  |
|00005cd0| 20 20 20 20 20 20 20 20 | 20 61 64 63 20 20 20 23 |        | adc   #|
|00005ce0| 30 0d 30 39 38 36 3a 38 | 35 20 38 33 20 20 20 20 |0.0986:8|5 83    |
|00005cf0| 20 20 20 20 20 34 30 31 | 20 20 20 20 20 20 20 20 |     401|        |
|00005d00| 20 20 20 73 74 61 20 20 | 20 65 6e 74 50 74 72 2b |   sta  | entPtr+|
|00005d10| 31 0d 30 39 38 38 3a 31 | 38 20 20 20 20 20 20 20 |1.0988:1|8       |
|00005d20| 20 20 20 20 20 34 30 32 | 20 20 20 20 20 20 20 20 |     402|        |
|00005d30| 20 20 20 63 6c 63 20 20 | 20 20 20 20 20 20 20 20 |   clc  |        |
|00005d40| 20 20 20 20 20 20 20 3b | 20 73 61 79 20 74 68 61 |       ;| say tha|
|00005d50| 74 20 74 68 65 20 62 75 | 66 66 65 72 27 73 20 67 |t the bu|ffer's g|
|00005d60| 6f 6f 64 0d 30 39 38 39 | 3a 36 30 20 20 20 20 20 |ood.0989|:60     |
|00005d70| 20 20 20 20 20 20 20 34 | 30 33 20 20 20 20 20 20 |       4|03      |
|00005d80| 20 20 20 20 20 72 74 73 | 0d 30 39 38 41 3a 20 20 |     rts|.098A:  |
|00005d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 34 30 34 20 |        |    404 |
|00005da0| 2a 0d 30 39 38 41 3a 20 | 20 20 20 20 20 20 20 30 |*.098A: |       0|
|00005db0| 39 38 41 20 20 34 30 35 | 20 52 65 61 64 4e 65 78 |98A  405| ReadNex|
|00005dc0| 74 20 20 65 71 75 20 20 | 20 2a 0d 30 39 38 41 3a |t  equ  | *.098A:|
|00005dd0| 32 30 20 30 30 20 42 46 | 20 20 20 20 20 20 34 30 |20 00 BF|      40|
|00005de0| 36 20 20 20 20 20 20 20 | 20 20 20 20 6a 73 72 20 |6       |    jsr |
|00005df0| 20 20 4d 4c 49 20 20 20 | 20 20 20 20 20 20 20 20 |  MLI   |        |
|00005e00| 3b 20 67 65 74 20 74 68 | 65 20 6e 65 78 74 20 62 |; get th|e next b|
|00005e10| 6c 6f 63 6b 0d 0d 30 31 | 20 52 45 43 55 52 53 49 |lock..01| RECURSI|
|00005e20| 56 45 2e 53 20 20 20 20 | 20 50 72 6f 44 4f 53 20 |VE.S    | ProDOS |
|00005e30| 43 61 74 61 6c 6f 67 20 | 52 6f 75 74 69 6e 65 20 |Catalog |Routine |
|00005e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 32 37 2d |        |     27-|
|00005e50| 41 55 47 2d 38 38 20 20 | 31 36 3a 32 30 20 50 41 |AUG-88  |16:20 PA|
|00005e60| 47 45 20 39 0d 20 0d 30 | 39 38 44 3a 43 41 20 20 |GE 9. .0|98D:CA  |
|00005e70| 20 20 20 20 20 20 20 20 | 20 20 34 30 37 20 20 20 |        |  407   |
|00005e80| 20 20 20 20 20 20 20 20 | 64 62 20 20 20 20 52 65 |        |db    Re|
|00005e90| 61 64 43 6d 64 0d 30 39 | 38 45 3a 44 46 20 30 39 |adCmd.09|8E:DF 09|
|00005ea0| 20 20 20 20 20 20 20 20 | 20 34 30 38 20 20 20 20 |        | 408    |
|00005eb0| 20 20 20 20 20 20 20 64 | 77 20 20 20 20 52 65 61 |       d|w    Rea|
|00005ec0| 64 50 61 72 6d 73 0d 30 | 39 39 30 3a 42 30 20 31 |dParms.0|990:B0 1|
|00005ed0| 33 20 20 20 30 39 41 35 | 20 20 34 30 39 20 20 20 |3   09A5|  409   |
|00005ee0| 20 20 20 20 20 20 20 20 | 62 63 73 20 20 20 44 69 |        |bcs   Di|
|00005ef0| 72 44 6f 6e 65 0d 30 39 | 39 32 3a 20 20 20 20 20 |rDone.09|92:     |
|00005f00| 20 20 20 20 20 20 20 20 | 20 34 31 30 20 2a 0d 30 |        | 410 *.0|
|00005f10| 39 39 32 3a 41 39 20 46 | 35 20 20 20 20 20 20 20 |992:A9 F|5       |
|00005f20| 20 20 34 31 31 20 20 20 | 20 20 20 20 20 20 20 20 |  411   |        |
|00005f30| 6c 64 61 20 20 20 23 62 | 75 66 66 65 72 2b 34 20 |lda   #b|uffer+4 |
|00005f40| 20 20 20 20 3b 20 73 65 | 74 20 65 6e 74 72 79 20 |    ; se|t entry |
|00005f50| 70 6f 69 6e 74 65 72 20 | 74 6f 20 62 65 67 69 6e |pointer |to begin|
|00005f60| 6e 69 6e 67 0d 30 39 39 | 34 3a 38 35 20 38 32 20 |ning.099|4:85 82 |
|00005f70| 20 20 20 20 20 20 20 20 | 34 31 32 20 20 20 20 20 |        |412     |
|00005f80| 20 20 20 20 20 20 73 74 | 61 20 20 20 65 6e 74 50 |      st|a   entP|
|00005f90| 74 72 0d 30 39 39 36 3a | 41 39 20 30 39 20 20 20 |tr.0996:|A9 09   |
|00005fa0| 20 20 20 20 20 20 34 31 | 33 20 20 20 20 20 20 20 |      41|3       |
|00005fb0| 20 20 20 20 6c 64 61 20 | 20 20 23 3c 62 75 66 66 |    lda |  #<buff|
|00005fc0| 65 72 2b 34 0d 30 39 39 | 38 3a 38 35 20 38 33 20 |er+4.099|8:85 83 |
|00005fd0| 20 20 20 20 20 20 20 20 | 34 31 34 20 20 20 20 20 |        |414     |
|00005fe0| 20 20 20 20 20 20 73 74 | 61 20 20 20 65 6e 74 50 |      st|a   entP|
|00005ff0| 74 72 2b 31 0d 30 39 39 | 41 3a 20 20 20 20 20 20 |tr+1.099|A:      |
|00006000| 20 20 20 20 20 20 20 20 | 34 31 35 20 2a 0d 30 39 |        |415 *.09|
|00006010| 39 41 3a 41 44 20 44 38 | 20 30 39 20 20 20 20 20 |9A:AD D8| 09     |
|00006020| 20 34 31 36 20 20 20 20 | 20 20 20 20 20 20 20 6c | 416    |       l|
|00006030| 64 61 20 20 20 65 6e 74 | 50 65 72 42 6c 6b 20 20 |da   ent|PerBlk  |
|00006040| 20 20 20 3b 20 72 65 2d | 69 6e 69 74 20 27 65 6e |   ; re-|init 'en|
|00006050| 74 72 69 65 73 20 69 6e | 20 74 68 69 73 20 62 6c |tries in| this bl|
|00006060| 6f 63 6b 27 0d 30 39 39 | 44 3a 38 44 20 44 35 20 |ock'.099|D:8D D5 |
|00006070| 30 39 20 20 20 20 20 20 | 34 31 37 20 20 20 20 20 |09      |417     |
|00006080| 20 20 20 20 20 20 73 74 | 61 20 20 20 54 68 69 73 |      st|a   This|
|00006090| 42 45 6e 74 72 79 0d 30 | 39 41 30 3a 43 45 20 44 |BEntry.0|9A0:CE D|
|000060a0| 35 20 30 39 20 20 20 20 | 20 20 34 31 38 20 20 20 |5 09    |  418   |
|000060b0| 20 20 20 20 20 20 20 20 | 64 65 63 20 20 20 54 68 |        |dec   Th|
|000060c0| 69 73 42 45 6e 74 72 79 | 0d 30 39 41 33 3a 31 38 |isBEntry|.09A3:18|
|000060d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 34 31 39 20 |        |    419 |
|000060e0| 20 20 20 20 20 20 20 20 | 20 20 63 6c 63 20 20 20 |        |  clc   |
|000060f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00006100| 72 65 74 75 72 6e 20 27 | 4e 6f 20 65 72 72 6f 72 |return '|No error|
|00006110| 27 0d 30 39 41 34 3a 36 | 30 20 20 20 20 20 20 20 |'.09A4:6|0       |
|00006120| 20 20 20 20 20 34 32 30 | 20 20 20 20 20 20 20 20 |     420|        |
|00006130| 20 20 20 72 74 73 0d 30 | 39 41 35 3a 20 20 20 20 |   rts.0|9A5:    |
|00006140| 20 20 20 20 20 20 20 20 | 20 20 34 32 31 20 2a 0d |        |  421 *.|
|00006150| 30 39 41 35 3a 20 20 20 | 20 20 20 20 20 30 39 41 |09A5:   |     09A|
|00006160| 35 20 20 34 32 32 20 44 | 69 72 44 6f 6e 65 20 20 |5  422 D|irDone  |
|00006170| 20 65 71 75 20 20 20 2a | 20 20 20 20 20 20 20 20 | equ   *|        |
|00006180| 20 20 20 20 20 3b 20 72 | 65 74 75 72 6e 20 27 41 |     ; r|eturn 'A|
|00006190| 6c 6c 20 44 6f 6e 65 21 | 27 0d 30 39 41 35 3a 33 |ll Done!|'.09A5:3|
|000061a0| 38 20 20 20 20 20 20 20 | 20 20 20 20 20 34 32 33 |8       |     423|
|000061b0| 20 20 20 20 20 20 20 20 | 20 20 20 73 65 63 20 20 |        |   sec  |
|000061c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000061d0| 20 72 65 74 75 72 6e 20 | 27 61 6e 20 65 72 72 6f | return |'an erro|
|000061e0| 72 20 6f 63 63 75 72 72 | 65 64 27 0d 30 39 41 36 |r occurr|ed'.09A6|
|000061f0| 3a 36 30 20 20 20 20 20 | 20 20 20 20 20 20 20 34 |:60     |       4|
|00006200| 32 34 20 20 20 20 20 20 | 20 20 20 20 20 72 74 73 |24      |     rts|
|00006210| 0d 30 39 41 37 3a 20 20 | 20 20 20 20 20 20 20 20 |.09A7:  |        |
|00006220| 20 20 20 20 34 32 35 20 | 2a 0d 30 39 41 37 3a 20 |    425 |*.09A7: |
|00006230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 34 32 36 |        |     426|
|00006240| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00006250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006270| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 30 39 41 37 3a 20 20 |********|.09A7:  |
|00006280| 20 20 20 20 20 20 20 20 | 20 20 20 20 34 32 37 20 |        |    427 |
|00006290| 2a 0d 30 39 41 37 3a 20 | 20 20 20 20 20 20 20 30 |*.09A7: |       0|
|000062a0| 39 41 37 20 20 34 32 38 | 20 50 72 69 6e 74 45 6e |9A7  428| PrintEn|
|000062b0| 74 72 79 20 65 71 75 20 | 20 2a 0d 30 39 41 37 3a |try equ | *.09A7:|
|000062c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 34 32 |        |      42|
|000062d0| 39 20 2a 0d 30 39 41 37 | 3a 20 20 20 20 20 20 20 |9 *.09A7|:       |
|000062e0| 20 20 20 20 20 20 20 34 | 33 30 20 2a 20 55 73 69 |       4|30 * Usi|
|000062f0| 6e 67 20 74 68 65 20 70 | 6f 69 6e 74 65 72 20 74 |ng the p|ointer t|
|00006300| 6f 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 65 6e |o the cu|rrent en|
|00006310| 74 72 79 2c 20 74 68 69 | 73 20 0d 30 39 41 37 3a |try, thi|s .09A7:|
|00006320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 34 33 |        |      43|
|00006330| 31 20 2a 20 72 6f 75 74 | 69 6e 65 20 70 72 69 6e |1 * rout|ine prin|
|00006340| 74 73 20 74 68 65 20 65 | 6e 74 72 79 20 6e 61 6d |ts the e|ntry nam|
|00006350| 65 2e 20 49 74 20 61 6c | 73 6f 20 70 61 79 73 0d |e. It al|so pays.|
|00006360| 30 39 41 37 3a 20 20 20 | 20 20 20 20 20 20 20 20 |09A7:   |        |
|00006370| 20 20 20 34 33 32 20 2a | 20 61 74 74 65 6e 74 69 |   432 *| attenti|
|00006380| 6f 6e 20 74 6f 20 74 68 | 65 20 72 65 63 75 72 73 |on to th|e recurs|
|00006390| 69 6f 6e 20 64 65 70 74 | 68 2c 20 61 6e 64 20 69 |ion dept|h, and i|
|000063a0| 6e 64 65 6e 74 73 0d 30 | 39 41 37 3a 20 20 20 20 |ndents.0|9A7:    |
|000063b0| 20 20 20 20 20 20 20 20 | 20 20 34 33 33 20 2a 20 |        |  433 * |
|000063c0| 62 79 20 31 20 73 70 61 | 63 65 20 66 6f 72 20 65 |by 1 spa|ce for e|
|000063d0| 76 65 72 79 20 6c 65 76 | 65 6c 2e 0d 30 39 41 37 |very lev|el..09A7|
|000063e0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 34 |:       |       4|
|000063f0| 33 34 20 2a 0d 30 39 41 | 37 3a 41 44 20 44 32 20 |34 *.09A|7:AD D2 |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.